From 58e2db00cd75ba03aa2f1da3238f065e102e3d1dde2fae77eedd1ac2697eaade Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 13 Nov 2024 14:07:03 +0300
Subject: [PATCH] Slightly reduced code

---
 tyac/tyac.tcl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/tyac/tyac.tcl b/tyac/tyac.tcl
index 311e46c..189c3b0 100644
--- a/tyac/tyac.tcl
+++ b/tyac/tyac.tcl
@@ -42,12 +42,10 @@ proc toBEbin {l v} {
         set b [expr {($l - $i - 1) * 8}]
         lappend a [binary format c [expr {($v & (0xFF << $b)) >> $b}]]
     }
-    return $a
+    return [join $a ""]
 }
 
-proc toBE {l v} {
-    foreach c [toBEbin $l $v] { add $c }
-}
+proc toBE {l v} { add [toBEbin $l $v] }
 
 proc INT {v} {
     if {$v >= 0} {
@@ -65,7 +63,7 @@ proc INT {v} {
         if {$v < [expr {1 << (($l+1)*8)}]} { break }
         incr l
     }
-    BIN [join [toBEbin [expr {$l + 1}] $v] ""]
+    BIN [toBEbin [expr {$l + 1}] $v]
 }
 
 proc _str {atom v} {
-- 
2.48.1