From 9287631556479126d73e65da3f18cb0de409441b Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Thu, 2 Feb 2023 22:18:58 -0500
Subject: [PATCH] fix bug with move-to-col

---
 term.tal | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/term.tal b/term.tal
index 7ed66da..d551ddf 100644
--- a/term.tal
+++ b/term.tal
@@ -434,7 +434,7 @@
 
 @end-arg ( c^ -> )
     ;on-read .Console/vect DEO2
-(    DUP debug-csi )
+    ( DUP debug-csi )
     DUP LIT "d EQU ?exec-move-row     ( move cursor to row )
     DUP LIT "h EQU ?exec-set-mode     ( enable line wrap )
     DUP LIT "l EQU ?exec-reset-mode   ( disable line wrap )
@@ -568,7 +568,7 @@
 @exec-move-col ( c^ -> )
     POP
     .cur-y LDZ2                ( row )
-    #0001 read-arg-2 dec-floor ( col )
+    #0001 read-arg-1 dec-floor ( col )
     goto BRK
 
 @exec-move ( c^ -> )