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

fix bug for real

This commit is contained in:
~d6 2023-02-13 22:58:29 -05:00
parent 108f6a22be
commit a6ef7dac8b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
term.tal
View File

@ -419,7 +419,7 @@
@copy-line ( y* x1* x0* -> y* ) @copy-line ( y* x1* x0* -> y* )
STH2 STH2 DUP2 find-natural-end ( y* xend* [x0* x1*] ) STH2 STH2 DUP2 find-natural-end ( y* xend* [x0* x1*] )
STH2r min ( y* xlim=min(xend,x1)* [x0*] ) STH2r min ( y* xlim=min(xend,x1)* [x0*] )
DUP2 STH2kr GTH2 ,&ok ( y* xlim* [x0*] ) DUP2 STH2kr GTH2 ?&ok ( y* xlim* [x0*] )
POP2 POP2r JMP2r ( y* ; return if line is empty ) POP2 POP2r JMP2r ( y* ; return if line is empty )
&ok OVR2 .cols LDZ2 MUL2 ( y* xlim* y*cols* [x0*] ) &ok OVR2 .cols LDZ2 MUL2 ( y* xlim* y*cols* [x0*] )
STH2kr ADD2 #10 SFT2 ;cells ADD2 ( y* xlim* addr* [x0*] ) STH2kr ADD2 #10 SFT2 ;cells ADD2 ( y* xlim* addr* [x0*] )