ugly accessor

2008-08-29 16:52:10 -05:00 · 2008-08-29 16:52:10 -05:00 · 4d8f64822a
parent 0f929ba85a
commit 4d8f64822a
1 changed files with 1 additions and 1 deletions
--- 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 -- )