continuations: Rename restart to continue-restart.
parent
f820215b1e
commit
a82b460876
|
@ -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 ;
|
||||
|
|
|
@ -182,7 +182,7 @@ TUPLE: restart name obj continuation ;
|
|||
|
||||
C: <restart> restart
|
||||
|
||||
: restart ( restart -- * )
|
||||
: continue-restart ( restart -- * )
|
||||
[ obj>> ] [ continuation>> ] bi continue-with ;
|
||||
|
||||
M: object compute-restarts drop { } ;
|
||||
|
|
Loading…
Reference in New Issue