continuations: make with-return use with-variable instead of with-scope.

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index b6d07a0f6c9be7749c1c63829caec81a3e7ff3a5..292a0b5bc810eca547bc6b5d21a12d712fdfa3ec 100644 (file)
--- 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 ;