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

M src/left.tal

@@ 846,12 846,16 @@ JMP2r
 
 @get-color ( addr* -- addr* color )
 
+	LDAk LIT ") EQU ,&comment-end JCN
+	[ LIT &c $1 ] ,&comment JCN
+	LDAk LIT "( EQU ,&comment JCN
 	LDAk LIT "@ EQU ,&label JCN
 	LDAk LIT "& EQU ,&label JCN
 	#01
 
 JMP2r
-
+&comment #01 ,&c STR #03 JMP2r
+&comment-end #00 ,&c STR #03 JMP2r
 &label #02 JMP2r
 
 @draw-uf2 ( text* color -- )