From a82b460876207d4a8e30bf35c50d4682c9092ba8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 17:18:09 -0700 Subject: [PATCH] continuations: Rename restart to continue-restart. --- basis/debugger/debugger.factor | 3 ++- core/continuations/continuations.factor | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor index d3d4b14a06..e3957c6b2e 100755 --- a/basis/debugger/debugger.factor +++ b/basis/debugger/debugger.factor @@ -43,7 +43,8 @@ M: string error. print ; error-continuation get name>> assoc-stack ; : :res ( n -- * ) - 1 - restarts get-global nth f restarts set-global restart ; + 1 - restarts get-global nth f restarts set-global + continue-restart ; : :1 ( -- * ) 1 :res ; : :2 ( -- * ) 2 :res ; diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor index 7187ecfec3..03142e7c32 100644 --- a/core/continuations/continuations.factor +++ b/core/continuations/continuations.factor @@ -182,7 +182,7 @@ TUPLE: restart name obj continuation ; C: restart -: restart ( restart -- * ) +: continue-restart ( restart -- * ) [ obj>> ] [ continuation>> ] bi continue-with ; M: object compute-restarts drop { } ; -- 2.34.1