d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bug with move-to-col

This commit is contained in:
~d6 2023-02-02 22:18:58 -05:00
parent 95e9b30810
commit 9287631556
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
term.tal
View File

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