From cbf4dd4205cf72c9758874b719ac447d21fc204b Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Sat, 13 Jun 2026 17:13:05 +0300
Subject: [PATCH] some opts

---
 README.md | 2 +-
 lttb.tcl  | 6 ++----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 10765c6..5160adc 100644
--- a/README.md
+++ b/README.md
@@ -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
 
diff --git a/lttb.tcl b/lttb.tcl
index c8d15bc..1ffbbf8 100755
--- a/lttb.tcl
+++ b/lttb.tcl
@@ -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]]
   }
 }