1 files changed, 12 insertions(+), 9 deletions(-)

M src/left.tal

@@ 1093,17 1093,20 @@ JMP2r
 	#03e8 ,&parse JSR
 	#0064 ,&parse JSR
 	#000a ,&parse JSR
-	NIP
-	&emit
-		DUP [ LIT &z $1 ] EQU ,&skip JCN
-			#ff ,&z STR DUP #30 ADD ;draw-chr JSR2
-			&skip
-	POP
+	#0001 ,&parse JSR
+	POP2
+
+JMP2r
+
+&parse ( val* -- val* )
+
+	DIV2k DUPk [ LIT &z $1 ] EQU ,&skip JCN
+		DUP #30 ADD ;draw-chr JSR2
+		#ff ,&z STR
+		&skip
+	POP MUL2 SUB2
 
 JMP2r
-	&parse ( val* -- val* )
-		DIV2k DUP ,&emit JSR MUL2 SUB2
-	JMP2r
 
 (
 @|document )