From 5342100e0950b865c32aed85fe3401fe994d8f2f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 27 Jul 2012 16:05:28 -0700
Subject: [PATCH] lexer: typed slots.

---
 core/lexer/lexer.factor | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index ea156efc00..f91c5e79cb 100644
--- a/core/lexer/lexer.factor
+++ b/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 ;