! Copyright (C) 2006, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays continuations fonts inspector kernel
-models models.arrow prettyprint sequences ui.commands ui.gadgets
+USING: accessors arrays fonts inspector kernel models
+models.arrow prettyprint sequences ui.commands ui.gadgets
ui.gadgets.labeled ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.status-bar ui.gadgets.tables ui.gadgets.toolbar
ui.gadgets.tracks ui.gestures ui.theme ui.tools.common ;
TUPLE: stack-entry object string ;
: <stack-entry> ( object -- stack-entry )
- dup [ unparse-short ] [ drop error-in-pprint ] recover
- stack-entry boa ;
+ dup unparse-short stack-entry boa ;
SINGLETON: stack-entry-renderer