ui.tools.debugger: remove usages of 'gadget,'

2008-07-13 15:07:48 -05:00 · 2008-07-13 15:07:48 -05:00 · b507295375
parent cfcff3e993
commit b507295375
1 changed files with 6 additions and 4 deletions
--- a/extra/ui/tools/debugger/debugger.factor
+++ b/extra/ui/tools/debugger/debugger.factor
@ -15,10 +15,12 @@ IN: ui.tools.debugger
 TUPLE: debugger < track restarts ;

 : <debugger-display> ( restart-list error -- gadget )
-    [
-        <pane> [ [ print-error ] with-pane ] keep gadget,
-        gadget,
-    ] make-filled-pile ;
+  <filled-pile>
+    <pane>
+      swapd tuck [ print-error ] with-pane
+    add-gadget
+
+    swap add-gadget ;

 : <debugger> ( error restarts restart-hook -- gadget )
    { 0 1 } debugger new-track