functors: C: no longer needs a stack effect.

2017-07-24 19:29:31 -05:00 · 2017-07-24 19:29:31 -05:00 · f8ce34b1db
parent c9fd44502c
commit f8ce34b1db
2 changed files with 5 additions and 4 deletions
--- a/basis/functors/functors-tests.factor
+++ b/basis/functors/functors-tests.factor
@ -14,7 +14,7 @@ WHERE

 TUPLE: B { value T } ;

-C: <B> B ( T -- B )
+C: <B> B

 ;FUNCTOR>

--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@ -84,9 +84,10 @@ FUNCTOR-SYNTAX: M:

 FUNCTOR-SYNTAX: C:
    scan-param suffix!
-    scan-param suffix!
-    scan-effect
-    [ [ [ boa ] curry ] append! ] dip suffix!
+    scan-param [
+        suffix!
+        [ [ boa ] curry ] append!
+    ] keep suffix! \ boa-effect suffix!
    \ define-declared* suffix! ;

 FUNCTOR-SYNTAX: :