lexer: typed slots.

core/lexer/lexer.factor

@@ -5,7 +5,13 @@ io vectors arrays math.parser combinators continuations
 source-files.errors ;
 IN: lexer
 
-TUPLE: lexer text line line-text line-length column parsing-words ;
+TUPLE: lexer
+{ text array }
+{ line fixnum }
+{ line-text maybe{ string } }
+{ line-length fixnum }
+{ column fixnum }
+{ parsing-words vector } ;
 
 TUPLE: lexer-parsing-word word line line-text column ;