steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Functor application records location info in generated words

db4
Slava Pestov 2008-12-02 21:49:51 -06:00
parent 25bdb4172a
commit f683a76a5e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/functors/functors.factor
View File

@ -11,7 +11,7 @@ IN: functors
: define* ( word def effect -- ) pick set-word define-declared ; : define* ( word def effect -- ) pick set-word define-declared ;
: DEFINE* ( -- ) effect get parsed \ define* parsed ; : DEFINE* ( accum -- accum ) effect get parsed \ define* parsed ;
: `TUPLE: : `TUPLE:
scan-param parsed scan-param parsed
@ -65,7 +65,7 @@ IN: functors
: IS [ dup search [ ] [ no-word ] ?if ] (INTERPOLATE) ; parsing : IS [ dup search [ ] [ no-word ] ?if ] (INTERPOLATE) ; parsing
: DEFINES [ in get create ] (INTERPOLATE) ; parsing : DEFINES [ create-in ] (INTERPOLATE) ; parsing
DEFER: ;FUNCTOR delimiter DEFER: ;FUNCTOR delimiter
@ -104,5 +104,3 @@ DEFER: ;FUNCTOR delimiter
lambda-rewrite first ; lambda-rewrite first ;
: FUNCTOR: (FUNCTOR:) define ; parsing : FUNCTOR: (FUNCTOR:) define ; parsing
: APPLY: scan-word scan-word execute swap '[ _ execute ] each ; parsing