new accessors

2008-08-31 02:51:16 -05:00 · 2008-08-31 02:51:16 -05:00 · b7fd4bb765
parent c87d6be1a5
commit b7fd4bb765
2 changed files with 2 additions and 2 deletions
--- a/basis/tools/walker/debug/debug.factor
+++ b/basis/tools/walker/debug/debug.factor
@ -27,5 +27,5 @@ IN: tools.walker.debug

        p ?promise
        variables>> walker-continuation swap at
-        model-value data>>
+        value>> data>>
    ] ;
--- a/basis/tools/walker/walker.factor
+++ b/basis/tools/walker/walker.factor
@ -163,7 +163,7 @@ SYMBOL: +stopped+
    ] change-frame ;

 : status ( -- symbol )
-    walker-status tget model-value ;
+    walker-status tget value>> ;

 : set-status ( symbol -- )
    walker-status tget set-model ;