steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-04-10 18:29:18 -07:00
parent 7dc851b627
commit d6828d38ff
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/ui/tools/traceback/traceback.factor
View File

@ -1,18 +1,20 @@
! Copyright (C) 2006, 2010 Slava Pestov. ! Copyright (C) 2006, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors continuations kernel models namespaces arrays USING: accessors arrays classes continuations fonts fry
fry prettyprint sequences inspector models.arrow fonts ui inspector kernel models models.arrow prettyprint sequences
ui.commands ui.gadgets ui.gadgets.labeled assocs ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.tracks ui.gadgets.buttons ui.gadgets.panes ui.gadgets.labeled ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.status-bar ui.gadgets.scrollers ui.gadgets.borders ui.gadgets.status-bar ui.gadgets.tables ui.gadgets.tracks
ui.gadgets.tables ui.gestures ui.tools.common ; ui.gestures ui.tools.common ;
QUALIFIED-WITH: ui.tools.inspector i QUALIFIED-WITH: ui.tools.inspector i
IN: ui.tools.traceback IN: ui.tools.traceback
TUPLE: stack-entry object string ; TUPLE: stack-entry object string ;
: <stack-entry> ( object -- stack-entry ) : <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 SINGLETON: stack-entry-renderer