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

[factor.git] / basis / sequences / parser / parser.factor

diff --git a/basis/sequences/parser/parser.factor b/basis/sequences/parser/parser.factor
index 322d4cf48872a24a3360ca16037cc69d884bf018..8e1b1f540cc771d7fd4f73e35b3a32cc6c58ae8a 100644 (file)
--- a/basis/sequences/parser/parser.factor
+++ b/basis/sequences/parser/parser.factor
@@ -15,7 +15,7 @@ TUPLE: sequence-parser sequence n ;
 :: with-sequence-parser ( sequence-parser quot -- seq/f )
     sequence-parser n>> :> n
     sequence-parser quot call [
-        n sequence-parser (>>n) f
+        n sequence-parser n<< f
     ] unless* ; inline
 
 : offset  ( sequence-parser offset -- char/f )
@@ -92,7 +92,7 @@ TUPLE: sequence-parser sequence n ;
         sequence-parser [ growing length - 1 + ] change-n drop
         ! sequence-parser advance drop
     ] [
-        saved sequence-parser (>>n)
+        saved sequence-parser n<<
         f
     ] if ;