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

View File

@ -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 ;

View File

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