diff --git a/regex.tal b/regex.tal index ff477ad..90c5905 100644 --- a/regex.tal +++ b/regex.tal @@ -91,8 +91,8 @@ ( the interpreter to halt. ) @error!! ( msg* -> ) LIT '! emit! space - &loop LDAk ,&continue JCN ,&done JMP - &continue LDAk emit! INC2 ,&loop JMP + &loop LDAk #00 EQU ,&done JCN + LDAk emit! INC2 ,&loop JMP &done POP2 newline #010f DEO BRK ( error messages )