1 files changed, 5 insertions(+), 4 deletions(-)

M src/uxnlin.tal

@@ 67,7 67,8 @@ JMP2r
 @parse ( char -- recipe* )
 
 	( char ) POP
-	( tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
+	( is mute ) .mute LDZ ;&ignore JCN2
+	( incr tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
 
 	( chain include )
 	;token LDA LIT "~ NEQ ,&no-inc JCN


@@ 84,7 85,6 @@ JMP2r
 		( a ) DUP2 ;token/last ;scmp-wild JSR2 STH ;scap JSR2 INC2
 		( b ) DUP2 ;token ;scmp-wild JSR2 STH ;scap JSR2 INC2
 		STH2r #0101 NEQ2 ,&skip JCN
-		.mute LDZ ,&skip JCN
 			LDA2k ;warn JSR2
 			&skip
 		INC2 INC2 GTH2k ,&loop JCN


@@ 98,7 98,6 @@ JMP2r
 		( b ) DUP2 ;token/last ;scmp-wild JSR2 STH ;scap JSR2 INC2
 		( c ) DUP2 ;token ;scmp-wild JSR2 STH ;scap JSR2 INC2
 		ADDr ADDr STHr #03 NEQ ,&skip3 JCN
-		.mute LDZ ,&skip3 JCN
 			LDA2k ;warn3 JSR2
 			&skip3
 		INC2 INC2 GTH2k ,&loop3 JCN


@@ 121,7 120,9 @@ JMP2r
 
 	&cleanup
 	;token/last ;token/last2 ;scpy JSR2
-	;token ;token/last ;scpy JSR2 
+	;token ;token/last ;scpy JSR2
+
+	&ignore
 	;token ;sclr ( .. )
 
 JMP2