new accessors
parent
c87d6be1a5
commit
b7fd4bb765
|
@ -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>>
|
||||||
] ;
|
] ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue