new accessors

db4
Doug Coleman 2008-08-31 02:51:16 -05:00
parent c87d6be1a5
commit b7fd4bb765
2 changed files with 2 additions and 2 deletions

View File

@ -27,5 +27,5 @@ IN: tools.walker.debug
p ?promise p ?promise
variables>> walker-continuation swap at variables>> walker-continuation swap at
model-value data>> value>> data>>
] ; ] ;

View File

@ -163,7 +163,7 @@ SYMBOL: +stopped+
] change-frame ; ] change-frame ;
: status ( -- symbol ) : status ( -- symbol )
walker-status tget model-value ; walker-status tget value>> ;
: set-status ( symbol -- ) : set-status ( symbol -- )
walker-status tget set-model ; walker-status tget set-model ;