unset wrapping flag when goto happens

This commit is contained in:
~d6 2023-02-19 20:41:48 -05:00
parent 6b733da6d1
commit caf1e4dc02
1 changed files with 1 additions and 0 deletions

View File

@ -1025,6 +1025,7 @@
.cur-wrap LDZ ?&skip clear-cursor down-or-scroll &skip JMP2r .cur-wrap LDZ ?&skip clear-cursor down-or-scroll &skip JMP2r
@goto ( y* x* -> ) @goto ( y* x* -> )
#00 .cur-wrap STZ
clear-cursor clear-cursor
.max-x LDZ2 min .cur-x STZ2 .max-x LDZ2 min .cur-x STZ2
.max-y LDZ2 min .cur-y STZ2 .max-y LDZ2 min .cur-y STZ2