fix a bug with caret

This commit is contained in:
~d6 2022-04-11 22:03:24 -04:00
parent d42464b289
commit 0d138b5bee
1 changed files with 1 additions and 1 deletions

View File

@ -212,7 +212,7 @@
INC2 LDA2 STH2 ( load and stash next )
DUP2 ;string-start LDA2 EQU2 ,&at-start JCN ( at string start? )
;match-multiline LDA ,&no-match JCN ( are we in multi-line mode? )
#0001 SUB2 LDAk #0a EQU ,&at-start JCN ( just after newline? )
DUP2 #0001 SUB2 LDA #0a EQU ,&at-start JCN ( just after newline? )
&no-match POP2r POP2 ;goto-backtrack JMP2 ( clear stacks and backtrack )
&at-start STH2r ;goto-next JMP2 ( go to next without advancing )