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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/debugger/debugger.factor
View File

@ -23,16 +23,16 @@ M: tuple error-help class ;
M: string error. print ; M: string error. print ;
: :s ( -- ) : :s ( -- )
error-continuation get continuation-data stack. ; error-continuation get data>> stack. ;
: :r ( -- ) : :r ( -- )
error-continuation get continuation-retain stack. ; error-continuation get retain>> stack. ;
: :c ( -- ) : :c ( -- )
error-continuation get continuation-call callstack. ; error-continuation get call>> callstack. ;
: :get ( variable -- value ) : :get ( variable -- value )
error-continuation get continuation-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 restart ;