1 files changed, 6 insertions(+), 6 deletions(-)

M src/uxnlin.tal

@@ 40,16 40,14 @@ BRK
 		;&c .File/read DEO2
 		.File/success DEI2 #0000 EQU2 ,&eof JCN
 		[ LIT &c $1 ] ,walk JSR
-		,&s JMP &eof
-	;print-summary ( .. )
+		,&s JMP
+	&eof ;print-summary ( .. )
 
 JMP2
 
 @walk ( char -- )
 
-	( tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
-	( lines ) #00 OVR #0a EQU .stats/lines STHk LDZ2 ADD2 STHr STZ2
-
+	#0a EQUk NIP ,&line JCN
 	LIT "( EQUk NIP ,&toggle-sleep JCN
 	LIT ") EQUk NIP ,&toggle-sleep JCN
 	LIT "[ EQUk NIP ,&toggle-mute JCN


@@ 61,13 59,15 @@ JMP2
 	POP
 
 JMP2r
+	&append ;token ;sput JMP2
 	&toggle-sleep LIT "( EQU ,&sleep STR JMP2r
 	&toggle-mute LIT "[ EQU .mute STZ JMP2r
-	&append ;token ;sput JMP2
+	&line .stats/lines LDZ2k INC2 ROT STZ2 ( , )
 
 @parse ( char -- recipe* )
 
 	( char ) POP
+	( tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
 
 	( chain include )
 	;token LDA LIT "~ NEQ ,&no-inc JCN