From c43972203189a2a3743146b30b39b57c68b572d3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 2 Aug 2022 12:27:15 -0700 Subject: [PATCH] effects: can't use (clone) due to read-only slots --- core/effects/effects.factor | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.34.1