ui.tools.debugger: don't throw an error if world has no children

2009-05-13 22:42:38 -05:00 · 2009-05-13 22:42:38 -05:00 · 2ad45a24b3
parent be17ed9132
commit 2ad45a24b3
1 changed files with 2 additions and 1 deletions
--- a/basis/ui/tools/debugger/debugger.factor
+++ b/basis/ui/tools/debugger/debugger.factor
@ -60,7 +60,8 @@ M: debugger focusable-child*

 GENERIC: error-in-debugger? ( error -- ? )

-M: world-error error-in-debugger? world>> gadget-child debugger? ;
+M: world-error error-in-debugger?
+    world>> children>> [ f ] [ first debugger? ] if-empty ;

 M: object error-in-debugger? drop f ;