1 files changed, 7 insertions(+), 0 deletions(-)

M src/uxnlin.tal

@@ 77,6 77,12 @@ JMP2r
 	( is mute ) [ LIT &mute $1 ] ;&ignore JCN2
 	( incr tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
 
+	( token length )
+
+	;token ;slen JSR2 #0018 LTH2 ,&no-clip JCN
+		;tokenlen ;print-warn2 JSR2
+		&no-clip
+
 	( chain include )
 
 	;token LDA LIT "~ NEQ ,&no-inc JCN


@@ 318,6 324,7 @@ JMP2r
 @keep "Unkept $1 ( opcode should use non-destructive keep mode )
 @unsafe "Unsafe $1 ( bitwise opcode used in relative jump )
 @unstashed "Unstashed $1 ( literal was created on the wrong stack )
+@tokenlen "Token-length $1 ( token is longer than 24 characters )
 @combine "Combine $1
 
 @inc "INC $1 @inc2 "INC2 $1