diff --git a/regex.tal b/regex.tal index f8c1c90..759273e 100644 --- a/regex.tal +++ b/regex.tal @@ -233,13 +233,13 @@ ;c-char JMP2 @c-star ( c^ -> regex* ) - LIT '* emit print +( LIT '* emit print ) POP print ;pop4 JSR2 SWP2 STH2 STH2k ( x1 [x0 x1] ) - LIT '! emit space print +( LIT '! emit space print ) ;alloc-star JSR2 ( r ) STH2r STH2kr ( r x1 x0 [x0] ) - LIT '0 emit newline +( LIT '0 emit newline ) ;emit-arena JSR2 ;remove-from JSR2 ( r [x0] ) LIT '1 emit newline