Fix functors for locals changes

2008-12-09 01:42:02 -06:00 · 2008-12-09 01:42:02 -06:00 · 3ed7a56a7f
parent 7e267510fd
commit 3ed7a56a7f
1 changed files with 1 additions and 1 deletions
--- 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 ;