From f683a76a5eb4efe26eb846ab80476bc470c05ebb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 2 Dec 2008 21:49:51 -0600 Subject: [PATCH] Functor application records location info in generated words --- basis/functors/functors.factor | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor index 3dba702cf2..d5ac3b6878 100644 --- a/basis/functors/functors.factor +++ b/basis/functors/functors.factor @@ -11,7 +11,7 @@ IN: functors : define* ( word def effect -- ) pick set-word define-declared ; -: DEFINE* ( -- ) effect get parsed \ define* parsed ; +: DEFINE* ( accum -- accum ) effect get parsed \ define* parsed ; : `TUPLE: scan-param parsed @@ -65,7 +65,7 @@ IN: functors : IS [ dup search [ ] [ no-word ] ?if ] (INTERPOLATE) ; parsing -: DEFINES [ in get create ] (INTERPOLATE) ; parsing +: DEFINES [ create-in ] (INTERPOLATE) ; parsing DEFER: ;FUNCTOR delimiter @@ -104,5 +104,3 @@ DEFER: ;FUNCTOR delimiter lambda-rewrite first ; : FUNCTOR: (FUNCTOR:) define ; parsing - -: APPLY: scan-word scan-word execute swap '[ _ execute ] each ; parsing