[Gd-chatter] r11620 - in trunk/libraries/network/koala/sources: koala xml-rpc-common

[cgay at gwydiondylan.org]

Author: cgay
Date: Sun Jan 13 00:13:14 2008
New Revision: 11620

Modified:
   trunk/libraries/network/koala/sources/koala/dsp.dylan
   trunk/libraries/network/koala/sources/koala/errors.dylan
   trunk/libraries/network/koala/sources/koala/library.dylan
   trunk/libraries/network/koala/sources/koala/utils.dylan
   trunk/libraries/network/koala/sources/xml-rpc-common/xml-rpc-common.dylan
Log:
job: koala
Don't subclass <simple-error>, which is intended to be sealed.
Instead subclass (<format-string-condition>, <error>).

Modified: trunk/libraries/network/koala/sources/koala/dsp.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/dsp.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/dsp.dylan	Sun Jan 13 00:13:14 2008
@@ -22,7 +22,7 @@
 
 define variable *debugging-dsp* :: <boolean> = #f;
 
-define class <dsp-error> (<simple-error>) end;
+define class <dsp-error> (<format-string-condition>, <error>) end;
 
 define class <dsp-parse-error> (<dsp-error>) end;
 

Modified: trunk/libraries/network/koala/sources/koala/errors.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/errors.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/errors.dylan	Sun Jan 13 00:13:14 2008
@@ -12,9 +12,7 @@
 
 // See RFC 2616, 6.1.1
 
-// I make everything a simple error so the stupid debugger can understand it.
-//
-define class <koala-error> (<simple-error>)
+define class <koala-error> (<format-string-condition>, <error>)
 end;
 
 // Signalled when a library uses the Koala API incorrectly. i.e., user

Modified: trunk/libraries/network/koala/sources/koala/library.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/library.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/library.dylan	Sun Jan 13 00:13:14 2008
@@ -46,6 +46,7 @@
               // make-symbol,
               // case-insensitive-equal,
               // case-insensitive-string-hash
+              <format-string-condition>
               };
   use file-system,
     import: { with-open-file, <file-does-not-exist-error> };

Modified: trunk/libraries/network/koala/sources/koala/utils.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/utils.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/utils.dylan	Sun Jan 13 00:13:14 2008
@@ -194,7 +194,7 @@
     required-init-keyword: #"object";
 end;
 
-define class <trie-error> (<simple-error>)
+define class <trie-error> (<format-string-condition>, <error>)
 end;
 
 define method add-object

Modified: trunk/libraries/network/koala/sources/xml-rpc-common/xml-rpc-common.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/xml-rpc-common/xml-rpc-common.dylan	(original)
+++ trunk/libraries/network/koala/sources/xml-rpc-common/xml-rpc-common.dylan	Sun Jan 13 00:13:14 2008
@@ -28,7 +28,7 @@
 
 // All XML-RPC errors inherit from this class.
 //
-define class <xml-rpc-error> (<simple-error>)
+define class <xml-rpc-error> (<format-string-condition>, <error>)
 end;
 
 // An error of this type will be thrown if a valid <fault> response