functors: C: no longer needs a stack effect.

modern-harvey2
Doug Coleman 2017-07-24 19:29:31 -05:00
parent c9fd44502c
commit f8ce34b1db
2 changed files with 5 additions and 4 deletions

View File

@ -14,7 +14,7 @@ WHERE
TUPLE: B { value T } ; TUPLE: B { value T } ;
C: <B> B ( T -- B ) C: <B> B
;FUNCTOR> ;FUNCTOR>

View File

@ -84,9 +84,10 @@ FUNCTOR-SYNTAX: M:
FUNCTOR-SYNTAX: C: FUNCTOR-SYNTAX: C:
scan-param suffix! scan-param suffix!
scan-param suffix! scan-param [
scan-effect suffix!
[ [ [ boa ] curry ] append! ] dip suffix! [ [ boa ] curry ] append!
] keep suffix! \ boa-effect suffix!
\ define-declared* suffix! ; \ define-declared* suffix! ;
FUNCTOR-SYNTAX: : FUNCTOR-SYNTAX: :