kernel: ?if-old is just `[ or* ] 2dip if`

[factor.git] / core / continuations / continuations.factor

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index 2df10575262b960bbd94049c3898d90f582e16ef..44ffe40849fef8fe2ca9a4c14024941a77e37b6c 100644 (file)
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -59,7 +59,7 @@ C: <continuation> continuation
 PRIVATE>
 
 : ifcc ( capture restore -- )
-    [ dummy-1 current-continuation ] 2dip [ dummy-2 ] prepose ?if-old ; inline
+    [ dummy-1 current-continuation or* ] 2dip [ dummy-2 ] prepose if ; inline
 
 : callcc0 ( quot -- ) [ drop ] ifcc ; inline