From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 2 Aug 2022 19:27:15 +0000 (-0700)
Subject: effects: can't use (clone) due to read-only slots
X-Git-Tag: 0.99~1222
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=c43972203189a2a3743146b30b39b57c68b572d3

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

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 8d622bf8cf..3c15d944ac 100644
--- 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