From 4d8f64822af8ee069d2bf8da60d6381c1b7c9991 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Aug 2008 16:52:10 -0500
Subject: [PATCH] ugly accessor

---
 core/lexer/lexer.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 9fa4878d6c..d284be00c9 100644
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -30,7 +30,7 @@ TUPLE: lexer text line line-text line-length column ;
 : change-lexer-column ( lexer quot -- )
     swap
     [ [ column>> ] [ line-text>> ] bi rot call ] keep
-    swap >>column drop ; inline
+    (>>column) ; inline
 
 GENERIC: skip-blank ( lexer -- )