listener: move pprint error catching to stack.

[factor.git] / basis / listener / listener.factor

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index f105892ca65402ad3eb878dc864e010906a19daa..59ddff1f752e20c57c65a6180e3ec8fcc8d938be 100644 (file)
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -93,13 +93,6 @@ t error-summary? set-global
         ] tabular-output nl
     ] unless-empty ;
 
-: print-stack ( seq -- )
-    [
-        [ short. ]
-        [ drop "~pprint error~" swap write-object nl ]
-        recover
-    ] each ;
-
 : trimmed-stack. ( seq -- )
     dup length max-stack-items get > [
         max-stack-items get cut*
@@ -107,7 +100,7 @@ t error-summary? set-global
             [ length number>string "(" " more items)" surround ] keep
             write-object nl
         ] dip
-    ] when print-stack ;
+    ] when stack. ;
 
 : datastack. ( datastack -- )
     display-stacks? get [