effects: can't use (clone) due to read-only slots

[factor.git] / core / effects / effects.factor

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 8d622bf8cf0ae0bd79d1706e391f1087d4183fc3..3c15d944ac9e186dbfb821962b71305a5cfe7bea 100644 (file)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -106,7 +106,13 @@ M: word stack-effect
 M: deferred stack-effect call-next-method ( -- * ) or ;
 
 M: effect clone
-    (clone) [ clone ] change-in [ clone ] change-out ;
+    {
+        [ in>> clone ]
+        [ out>> clone ]
+        [ terminated?>> ]
+        [ in-var>> ]
+        [ out-var>> ]
+    } cleave effect boa ;
 
 : stack-height ( word -- n )
     stack-effect effect-height ; inline