some opts

2026-06-13 17:13:05 +03:00
parent 973b525599
commit cbf4dd4205
2 changed files with 3 additions and 5 deletions
@@ -24,7 +24,7 @@ See the [manual](lttb-manual.md) for more details on every supported command and

 Here are all currently known implementations of LTTB:

-* [Jim Tcl port](./lttb.tcl) (298 SLOC)
+* [Jim Tcl port](./lttb.tcl) (296 SLOC)

 ## FAQ

@@ -207,12 +207,10 @@ proc lttb_IN {stmt} {
  puts -nonewline {? }
  stdout flush
  set inputbuf [string toupper [string trim [stdin gets]]]
-  set inputlist [lmap s [split [lttb_stripspace $inputbuf] ,] {
-    lttb_eval $s
-  }]
+  set inputlist [split [lttb_stripspace $inputbuf] ,]
  loop i 0 $vlen {
    set vname [string index [lindex $varlist $i] 0]
-    set vars($vname) [lindex $inputlist $i]
+    set vars($vname) [lttb_eval [lindex $inputlist $i]]
  }
 }