From 4372ac98aae92d6f0dad0100b2569f14ee7d0b49 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Thu, 26 Sep 2024 04:45:16 +1000
Subject: [PATCH] refix punk::repl

---
 src/modules/punk/repl-0.1.tm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/modules/punk/repl-0.1.tm b/src/modules/punk/repl-0.1.tm
index 7977c38a..b887976d 100644
--- a/src/modules/punk/repl-0.1.tm
+++ b/src/modules/punk/repl-0.1.tm
@@ -1390,11 +1390,11 @@ proc repl::repl_handler {inputchan prompt_config} {
                                 if {![catch {exec {*}$sttycmd -a} result]} {
                                     lassign [split $result \n] firstline
                                     set lineparts [split $firstline {;}] ;#we seem to get segments that look well behaved enough to be treated as tcl lists - review - regex? 
-                                    set rowinfo [lsearch $lineparts -index end -inline $lineparts rows]
+                                    set rowinfo [lsearch -index end -inline $lineparts rows]
                                     if {[llength $rowinfo] == 2} {
                                         set rows [lindex $rowinfo 0]
                                     }
-                                    set colinfo [lsearch $lineparts -index end -inline $lineparts columns]
+                                    set colinfo [lsearch -index end -inline $lineparts columns]
                                     if {[llength $colinfo] == 2} {
                                         set cols [lindex $colinfo 0]
                                     }