Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / core / lexer / lexer.factor

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 7939a49d7a3e0eb27cc97590699151442f991287..d5eecde1a2da219a5078fdf446ebf690de5b226e 100644 (file)
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -49,7 +49,7 @@ ERROR: unexpected want got ;
 
 : change-lexer-column ( lexer quot -- )
     [ [ column>> ] [ line-text>> ] bi ] prepose keep
-    (>>column) ; inline
+    column<< ; inline
 
 GENERIC: skip-blank ( lexer -- )