ui.tools.traceback: fix pprint error in walker issue.
parent
7dc851b627
commit
d6828d38ff
|
@ -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
|
||||
} define-command-map
|
||||
|
|
Loading…
Reference in New Issue