ui.tools.traceback: fix pprint error in walker issue.

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index ce67b125f028dfdf5247979db79f29ed888bcfea..3bfa9b323301f83c0819709bb9a26bdcd85224fe 100644 (file)
--- a/basis/ui/tools/traceback/traceback.factor
+++ b/basis/ui/tools/traceback/traceback.factor
@@ -1,18 +1,20 @@
 ! Copyright (C) 2006, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors continuations kernel models namespaces arrays
-fry prettyprint sequences inspector models.arrow fonts ui
-ui.commands ui.gadgets ui.gadgets.labeled assocs
-ui.gadgets.tracks ui.gadgets.buttons ui.gadgets.panes
-ui.gadgets.status-bar ui.gadgets.scrollers ui.gadgets.borders
-ui.gadgets.tables ui.gestures ui.tools.common ;
+USING: accessors arrays classes continuations fonts fry
+inspector kernel models models.arrow prettyprint sequences
+ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons
+ui.gadgets.labeled ui.gadgets.panes ui.gadgets.scrollers
+ui.gadgets.status-bar ui.gadgets.tables ui.gadgets.tracks
+ui.gestures ui.tools.common ;
 QUALIFIED-WITH: ui.tools.inspector i
 IN: ui.tools.traceback
 
 TUPLE: stack-entry object string ;
 
 : <stack-entry> ( object -- stack-entry )
-    dup unparse-short stack-entry boa ;
+    dup [ unparse-short ] [
+        drop class-of name>> "~pprint error: " "~" surround
+    ] recover stack-entry boa ;
 
 SINGLETON: stack-entry-renderer
 
@@ -78,4 +80,4 @@ TUPLE: traceback-gadget < tool ;
 traceback-gadget "toolbar" f {
     { T{ key-down f f "v" } variables }
     { T{ key-down f f "n" } inspect-continuation }
-} define-command-map
\ No newline at end of file
+} define-command-map