Fix functors for locals changes
parent
7e267510fd
commit
3ed7a56a7f
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue