tools.annotations: Use fry in '(watch-vars)'

2008-09-13 11:12:36 -05:00 · 2008-09-13 11:12:36 -05:00 · 1bf65e6dc5
parent d2646cfe1b
commit 1bf65e6dc5
1 changed files with 6 additions and 5 deletions
--- a/basis/tools/annotations/annotations.factor
+++ b/basis/tools/annotations/annotations.factor
@ -55,11 +55,12 @@ M: word reset
    dup [ (watch) ] annotate ;

 : (watch-vars) ( quot word vars -- newquot )
-    [
-        "--- Entering: " write swap .
-        "--- Variable values:" print
-        [ dup get ] H{ } map>assoc describe
-    ] 2curry prepose ;
+    rot
+   '[
+        "--- Entering: "       write _ .
+        "--- Variable values:" print _ [ dup get ] H{ } map>assoc describe
+        @
+    ] ;

 : watch-vars ( word vars -- )
    dupd [ (watch-vars) ] 2curry annotate ;