vocabs.parser: a couple of fixes

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 0bdec5f11c00d0b9b11805d89c660fb6d7c57c16..d21b7d20435d4b6c847fa68a696f475749771e1c 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -86,8 +86,7 @@ PRIVATE>
 
 : set-current-vocab ( name -- )
     create-vocab
-    [ manifest get (>>current-vocab) ]
-    [ words>> <extra-words> (add-qualified) ] bi ;
+    [ manifest get (>>current-vocab) ] [ (add-qualified) ] bi ;
 
 : with-current-vocab ( name quot -- )
     manifest get clone manifest [
@@ -242,8 +241,10 @@ PRIVATE>
 
 : with-manifest ( quot -- )
     <manifest> manifest [
-        [ manifest get add-definition-observer call ]
-        [ manifest get remove-definition-observer ]
-        [ ]
-        cleanup
+        [ call ] [
+            [ manifest get add-definition-observer call ]
+            [ manifest get remove-definition-observer ]
+            [ ]
+            cleanup
+        ] if-bootstrapping
     ] with-variable ; inline