src/common/format format-buf.dylan,1.4,1.5

Update of /var/lib/cvs/src/common/format
In directory cantor:/tmp/cvs-serv25908

Modified Files:
        format-buf.dylan 
Log Message:
Gracefully handle exceptions during formatting.


Index: format-buf.dylan
===================================================================
RCS file: /var/lib/cvs/src/common/format/format-buf.dylan,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- format-buf.dylan    31 May 2003 02:50:16 -0000      1.4
+++ format-buf.dylan    15 Sep 2003 16:49:02 -0000      1.5
@@ -199,6 +199,8 @@
     bd.buffer.buffer-next := bd.next-ele;
     release-output-buffer(stream);
     unlock-stream(stream);
+  exception (condition :: <condition>)
+    signal(condition);          // re-signal after running cleanup
   end;
 end method;
     

_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter