From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 13 Nov 2024 11:07:03 +0000 (+0300)
Subject: Slightly reduced code
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=58e2db00cd75ba03aa2f1da3238f065e102e3d1dde2fae77eedd1ac2697eaade;p=keks.git

Slightly reduced code
---

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} {