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 { } ;