Fix functors for locals changes

db4
Slava Pestov 2008-12-09 01:42:02 -06:00
parent 7e267510fd
commit 3ed7a56a7f
1 changed files with 1 additions and 1 deletions

View File

@ -99,7 +99,7 @@ DEFER: ;FUNCTOR delimiter
: (FUNCTOR:) ( -- word def ) : (FUNCTOR:) ( -- word def )
CREATE CREATE
parse-locals parse-locals dup push-locals
parse-functor-body swap pop-locals <lambda> parse-functor-body swap pop-locals <lambda>
rewrite-closures first ; rewrite-closures first ;