From 01e210346ed4c4107df9797d9426b83557219ee0 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 15 Jun 2015 09:11:35 -0700 Subject: [PATCH] continuations: make with-return use with-variable instead of with-scope. --- core/continuations/continuations.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor index b6d07a0f6c..292a0b5bc8 100644 --- a/core/continuations/continuations.factor +++ b/core/continuations/continuations.factor @@ -100,7 +100,7 @@ PRIVATE> SYMBOL: return-continuation : with-return ( quot -- ) - [ [ return-continuation set ] prepose callcc0 ] with-scope ; inline + [ return-continuation ] dip [ with-variable ] 2curry callcc0 ; inline : return ( -- * ) return-continuation get continue ;