refix punk::repl

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