From 4d7c6fe48b64a2a86b382d77089374f4c56ac3a0 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 21 Nov 2008 18:55:14 -0600 Subject: [PATCH] Make stack display configurable --- basis/listener/listener.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor index 5d58cafe29..7d8b72849b 100644 --- a/basis/listener/listener.factor +++ b/basis/listener/listener.factor @@ -73,9 +73,15 @@ SYMBOL: error-hook ] tabular-output ] unless-empty ; +SYMBOL: display-stacks? + +t display-stacks? set-global + : stacks. ( -- ) - datastack [ nl "--- Data stack:" title. stack. ] unless-empty - retainstack [ nl "--- Retain stack:" title. stack. ] unless-empty ; + display-stacks? get [ + datastack [ nl "--- Data stack:" title. stack. ] unless-empty + retainstack [ nl "--- Retain stack:" title. stack. ] unless-empty + ] when ; : prompt. ( -- ) "( " in get auto-use? get [ " - auto" append ] when " )" 3append