Fix functors for locals changes

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 7dab80c22dd8fe7fe8af351ad208391ada44934d..2029c0cf2526e6672cb5dab84a26443834a07f07 100644 (file)
--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@@ -99,7 +99,7 @@ DEFER: ;FUNCTOR delimiter
 
 : (FUNCTOR:) ( -- word def )
     CREATE
-    parse-locals
+    parse-locals dup push-locals
     parse-functor-body swap pop-locals <lambda>
     rewrite-closures first ;