locals.parser: only need to clone manifest.

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 [
+        qualified-vocabs length
-        "hey there!" qualified-vocabs push [ ]
+        H{ } clone [
-    ] with-lambda-scope drop
+            "hey there!" qualified-vocabs push [ ]
-    qualified-vocabs length =
+        ] 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
->>

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