listener: use prettyprint:datastack.

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 717b459516aef215b6e25b6b1a5bef9fbd1ac4e5..ed0f8db09be9a1b7aabe9c604c21b0ecfb738cd9 100644 (file)
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -116,15 +116,13 @@ t error-summary? set-global
         ] dip
     ] when stack. ;
 
-: datastack. ( datastack -- )
-    display-stacks? get [
-        [ nl "--- Data stack:" title. trimmed-stack. ] unless-empty
-    ] [ drop ] if ;
+: ?datastack. ( datastack -- )
+    display-stacks? get [ datastack. ] [ drop ] if ;
 
 :: listener-step ( datastack -- datastack' )
     error-summary? get [ error-summary ] when
     visible-vars.
-    datastack datastack.
+    datastack ?datastack.
     input-stream get prompt prompt.
     flush
     [