locals.parser: only need to clone manifest.

diff --git a/basis/locals/parser/parser-tests.factor b/basis/locals/parser/parser-tests.factor
index dca8a9bff7c3c8ee1956270a77849dfe96224f65..5c42a0a5562fd7675e4cbc34651d2b47635b7904 100644 (file)
--- a/basis/locals/parser/parser-tests.factor
+++ b/basis/locals/parser/parser-tests.factor
@@ -3,7 +3,6 @@ locals.parser namespaces parser prettyprint sequences sorting
 tools.test vocabs vocabs.parser ;
 IN: locals.parser.tests
 
-<<
 ! (::)
 {
     "dobiedoo"
@@ -21,10 +20,9 @@ IN: locals.parser.tests
     [
         "um" parse-def
         local>> name>>
-        manifest get qualified-vocabs>> last words>> keys "um" swap member?
+        qualified-vocabs last words>> keys "um" swap member?
     ] with-compilation-unit
 ] unit-test
->>
 
 ! check-local-name
 { "hello" } [
@@ -56,14 +54,15 @@ IN: locals.parser.tests
     [ locals>> [ name>> ] map ] [ keys ] bi*
 ] unit-test
 
-<<
 ! with-lambda-scope
 { t } [
-    qualified-vocabs length
-    H{ } clone [
-        "hey there!" qualified-vocabs push [ ]
-    ] with-lambda-scope drop
-    qualified-vocabs length =
+    [
+        qualified-vocabs length
+        H{ } clone [
+            "hey there!" qualified-vocabs push [ ]
+        ] with-lambda-scope drop
+        qualified-vocabs length =
+    ] with-compilation-unit
 ] unit-test
 
 {
@@ -76,4 +75,3 @@ IN: locals.parser.tests
         ] with-lexer
     ] with-compilation-unit unparse
 ] unit-test
->>

diff --git a/basis/locals/parser/parser.factor b/basis/locals/parser/parser.factor
index 84ca8da4c66ed8ccebbe29cfbbbd3397e8993fe8..3f318a7cf94a167beb714d1213503332d992439c 100644 (file)
--- a/basis/locals/parser/parser.factor
+++ b/basis/locals/parser/parser.factor
@@ -35,7 +35,7 @@ SINGLETON: lambda-parser
     '[
         in-lambda? on
         lambda-parser quotation-parser set
-        manifest [ clone [ clone ] change-qualified-vocabs ] change
+        manifest [ clone ] change
         use-words @
     ] with-scope ; inline