From 3ed7a56a7f1c8df0e940cd795945614289ad4aae Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 9 Dec 2008 01:42:02 -0600
Subject: [PATCH] Fix functors for locals changes

---
 basis/functors/functors.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 7dab80c22d..2029c0cf25 100644
--- 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 ;