From 786ca76d02245480b5cb28a0f8acab6379b005be Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 20 Nov 2008 21:54:28 -0600 Subject: [PATCH] Listener now displays stacks and watched variables --- basis/listener/listener-docs.factor | 8 ++++---- basis/listener/listener.factor | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/basis/listener/listener-docs.factor b/basis/listener/listener-docs.factor index 9b2903970a..8ef49ca0d9 100644 --- a/basis/listener/listener-docs.factor +++ b/basis/listener/listener-docs.factor @@ -5,11 +5,11 @@ ARTICLE: "listener-watch" "Watching variables in the listener" "The listener prints the concepts of the data and retain stacks after every expression. It can also print values of dynamic variables which are added to a watch list:" { $subsection visible-vars } "To add or remove a single variable:" -{ $subsection watch-var } -{ $subsection unwatch-var } +{ $subsection show-var } +{ $subsection hide-var } "To add and remove multiple variables:" -{ $subsection watch-vars } -{ $subsection unwatch-vars } ; +{ $subsection show-vars } +{ $subsection hide-vars } ; ARTICLE: "listener" "The listener" "The listener evaluates Factor expressions read from a stream. The listener is the primary interface to the Factor runtime. Typically, you write Factor code in a text editor, then load it using the listener and test it." diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor index ee16f6369a..5d58cafe29 100644 --- a/basis/listener/listener.factor +++ b/basis/listener/listener.factor @@ -42,13 +42,13 @@ PRIVATE> SYMBOL: visible-vars -: watch-var ( sym -- ) visible-vars [ swap suffix ] change ; +: show-var ( sym -- ) visible-vars [ swap suffix ] change ; -: watch-vars ( seq -- ) visible-vars [ swap union ] change ; +: show-vars ( seq -- ) visible-vars [ swap union ] change ; -: unwatch-var ( sym -- ) visible-vars [ remove ] change ; +: hide-var ( sym -- ) visible-vars [ remove ] change ; -: unwatch-vars ( seq -- ) visible-vars [ swap diff ] change ; +: hide-vars ( seq -- ) visible-vars [ swap diff ] change ; SYMBOL: error-hook