From 842327f3df8b9f5834ed4b5ba96a985a3eb4aeb1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 16 Sep 2011 21:54:17 -0700
Subject: [PATCH] lexer: more clear code.

---
 core/lexer/lexer.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 98a1277ac7..8f373640d3 100644
--- 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 ;