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

[factor.git] / extra / c / lexer / lexer.factor

diff --git a/extra/c/lexer/lexer.factor b/extra/c/lexer/lexer.factor
index 57894217bd17f6cc5e4e47af7eee79d268975c61..9e613d54b44f6871f222e302a0e3999c612a7e73 100644 (file)
--- a/extra/c/lexer/lexer.factor
+++ b/extra/c/lexer/lexer.factor
@@ -54,7 +54,7 @@ IN: c.lexer
     sequence-parser current quote-char = [
         sequence-parser advance* string
     ] [
-        start-n sequence-parser (>>n) f
+        start-n sequence-parser n<< f
     ] if ;
 
 : (take-token) ( sequence-parser -- string )