From d83fcea9935150234632bed4874e9d1a8dd43053 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 17 Jul 2008 18:29:58 -0500
Subject: [PATCH] display-stack: some improvements

---
 extra/display-stack/display-stack.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/extra/display-stack/display-stack.factor b/extra/display-stack/display-stack.factor
index 161cd6760d..8da252f294 100644
--- a/extra/display-stack/display-stack.factor
+++ b/extra/display-stack/display-stack.factor
@@ -10,10 +10,12 @@ SYMBOL: watched-variables
 
 : watch-var ( sym -- ) watched-variables get push ;
 
-: watch-vars ( sym -- ) watched-variables get [ push ] curry each ;
+: watch-vars ( seq -- ) watched-variables get [ push ] curry each ;
 
 : unwatch-var ( sym -- ) watched-variables get delete ;
 
+: unwatch-vars ( seq -- ) watched-variables get [ delete ] curry each ;
+
 : print-watched-variables ( -- )
   watched-variables get length 0 >
     [
@@ -33,9 +35,9 @@ SYMBOL: watched-variables
     [
       print-watched-variables
       "----------" print
-      .s
+      datastack [ . ] each
       "----------" print
-      retainstack reverse stack.
+      retainstack reverse [ . ] each
     ]
   listener-hook set ;