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

[factor.git] / core / vocabs / parser / parser.factor

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index d21b7d20435d4b6c847fa68a696f475749771e1c..8d1d2664dabf043aae84224e0ebc34a584c1dc64 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -86,7 +86,7 @@ PRIVATE>
 
 : set-current-vocab ( name -- )
     create-vocab
-    [ manifest get (>>current-vocab) ] [ (add-qualified) ] bi ;
+    [ manifest get current-vocab<< ] [ (add-qualified) ] bi ;
 
 : with-current-vocab ( name quot -- )
     manifest get clone manifest [