lexer: more clear code.

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 98a1277ac78d487a9d49603a39c3dc5bd2a109c0..8f373640d37b03bcaba3ba2d3f8d5f97a33ed53b 100644 (file)
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -10,8 +10,8 @@ TUPLE: lexer text line line-text line-length column parsing-words ;
 TUPLE: lexer-parsing-word word line line-text column ;
 
 : next-line ( lexer -- )
-    dup [ line>> ] [ text>> ] bi ?nth >>line-text
-    dup line-text>> length >>line-length
+    dup [ line>> ] [ text>> ] bi ?nth
+    [ >>line-text ] [ length >>line-length ] bi
     [ 1 + ] change-line
     0 >>column
     drop ;