1 files changed, 11 insertions(+), 2 deletions(-)

M src/uxnlin.tal

@@ 79,8 79,8 @@ JMP2r
 
 	( token length )
 
-	;token ;slen JSR2 #0018 LTH2 ,&no-clip JCN
-		;tokenlen ;print-warn2 JSR2
+	;token ;slen JSR2 #0019 LTH2 ,&no-clip JCN
+		;tokenlen ;print-warn JSR2
 		&no-clip
 
 	( chain include )


@@ 183,6 183,15 @@ JMP2r
 JMP2r
 	&pass POP2 #01 JMP2r
 
+@print-warn ( str* -- )
+
+	LIT "- #18 DEOk DEO #2018 DEO
+	;token ;pstr JSR2 #2018 DEO
+	LIT "" #18 DEO ;pstr JSR2 LIT "" #18 DEO
+	;print-line ( .. )
+
+JMP2
+
 @print-warn2 ( str* -- )
 
 	LIT "- #18 DEOk DEO #2018 DEO