examples/shootout except.dylan,1.1,1.2

Update of /var/lib/cvs/examples/shootout
In directory cantor:/tmp/cvs-serv1166

Modified Files:
        except.dylan 
Log Message:
job: 7045
sealed make and initialize: help performance a little, but not much

Index: except.dylan
===================================================================
RCS file: /var/lib/cvs/examples/shootout/except.dylan,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- except.dylan        8 Jul 2004 03:21:26 -0000       1.1
+++ except.dylan        23 Jul 2004 01:59:33 -0000      1.2
@@ -8,6 +8,10 @@
 define variable lo  :: <integer> = 0;
 
 
+define sealed domain make (subclass(<hi-exception>));
+define sealed domain initialize (<hi-exception>);
+
+
 define class <hi-exception> (<error>)
   slot number :: <integer>, required-init-keyword: number:; // not really used 
for anything
 end;


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