From 2bc0c745546b6ff3ac5390829da41523beaa3f09 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Thu, 26 Sep 2024 04:41:11 +1000
Subject: [PATCH] typeo fix for stty call in punk::repl

---
 src/modules/punk/repl-0.1.tm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/modules/punk/repl-0.1.tm b/src/modules/punk/repl-0.1.tm
index 3a6cab6c..7977c38a 100644
--- a/src/modules/punk/repl-0.1.tm
+++ b/src/modules/punk/repl-0.1.tm
@@ -1387,7 +1387,7 @@ proc repl::repl_handler {inputchan prompt_config} {
                             set sttycmd [auto_execok stty]
                             if {$sttycmd ne ""} {
                                 #the more parseable: stty -g  doesn't give rows/columns
-                                if {![catch {exec {*}$sttycmd -a} result} {
+                                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]