 
 : IS [ dup search [ ] [ no-word ] ?if ] (INTERPOLATE) ; parsing
 
-: DEFINES [ in get create ] (INTERPOLATE) ; parsing
+: DEFINES [ create-in ] (INTERPOLATE) ; parsing
 
 DEFER: ;FUNCTOR delimiter
 


: define* ( word def effect -- ) pick set-word define-declared ;

: DEFINE* ( -- ) effect get parsed \ define* parsed ;

: `TUPLE:
    scan-param parsed

    lambda-rewrite first ;

: FUNCTOR: (FUNCTOR:) define ; parsing
