new accessors

db4
Doug Coleman 2008-08-29 16:48:43 -05:00
parent 89d5a8e80e
commit c013d63eea
1 changed files with 4 additions and 4 deletions

View File

@ -23,16 +23,16 @@ M: tuple error-help class ;
M: string error. print ;
: :s ( -- )
error-continuation get continuation-data stack. ;
error-continuation get data>> stack. ;
: :r ( -- )
error-continuation get continuation-retain stack. ;
error-continuation get retain>> stack. ;
: :c ( -- )
error-continuation get continuation-call callstack. ;
error-continuation get call>> callstack. ;
: :get ( variable -- value )
error-continuation get continuation-name assoc-stack ;
error-continuation get name>> assoc-stack ;
: :res ( n -- * )
1- restarts get-global nth f restarts set-global restart ;