steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

continuations: Rename restart to continue-restart.

db4
Doug Coleman 2013-03-23 17:18:09 -07:00
parent f820215b1e
commit a82b460876
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/debugger/debugger.factor
View File

@ -43,7 +43,8 @@ M: string error. print ;
error-continuation get name>> assoc-stack ; error-continuation get name>> assoc-stack ;
: :res ( n -- * ) : :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 ; : :1 ( -- * ) 1 :res ;
: :2 ( -- * ) 2 :res ; : :2 ( -- * ) 2 :res ;

2
core/continuations/continuations.factor
View File

@ -182,7 +182,7 @@ TUPLE: restart name obj continuation ;
C: <restart> restart C: <restart> restart
: restart ( restart -- * ) : continue-restart ( restart -- * )
[ obj>> ] [ continuation>> ] bi continue-with ; [ obj>> ] [ continuation>> ] bi continue-with ;
M: object compute-restarts drop { } ; M: object compute-restarts drop { } ;