]> gitweb.factorcode.org Git - factor.git/blobdiff - core/effects/effects.factor
Fixing conflicts from stack checker changes
[factor.git] / core / effects / effects.factor
index 28d16760fd941cc7db06c70d6d608b0b8d2f1001..a3cf8065acac9421cd27ca6cd84a0cfe222690eb 100644 (file)
@@ -45,9 +45,9 @@ M: effect effect>string ( effect -- string )
 
 GENERIC: stack-effect ( word -- effect/f )
 
-M: word stack-effect
-    "declared-effect" "inferred-effect"
-    [ word-prop ] bi-curry@ bi or ;
+M: word stack-effect "declared-effect" word-prop ;
+
+M: deferred stack-effect call-next-method (( -- * )) or ;
 
 M: effect clone
     [ in>> clone ] [ out>> clone ] bi <effect> ;