[Gd-chatter] r11007 - trunk/libraries/gui-sniffer

[andreas at gwydiondylan.org]

Author: andreas
Date: Thu Nov 30 00:20:18 2006
New Revision: 11007

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
Log:
job: 7299

Infrastructure for switchable break on error.

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Thu Nov 30 00:20:18 2006
@@ -394,12 +394,18 @@
   *count*;
 end;
 
+define variable *debugging?* = #t;
+
 define method safe(func :: <function>)
   method(#rest args)
     block()
       apply(func, args)
     exception (e :: <error>)
-      "broken"
+      if(*debugging?*)
+        break()
+      else
+        "broken"
+      end
     end
   end
 end;
@@ -409,7 +415,9 @@
     block()
       apply(func, args)
     exception (e :: <error>)
-      #f
+      if(*debugging?*)
+        break()
+      end
     end
   end
 end;