functors: C: no longer needs a stack effect.

diff --git a/basis/functors/functors-tests.factor b/basis/functors/functors-tests.factor
index e52ff7d04e8cfc6f81d47ee103d874f67ef80bf9..f5034f42ba2a1be6fe89bbf8c163c95cdf9d035d 100644 (file)
--- 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>
 

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 909ae3827977f286c2421679366fffae37499bb5..79aff0d16efab044542a76d2865c94f5672784a7 100644 (file)
--- 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: :