[Gd-chatter] r11614 - in trunk/libraries/regular-expressions: . tests

[cgay at gwydiondylan.org]

Author: cgay
Date: Thu Jan 10 11:42:31 2008
New Revision: 11614

Modified:
   trunk/libraries/regular-expressions/parse.dylan
   trunk/libraries/regular-expressions/tests/pcre.dylan
Log:
job: 7357
Don't subclass <simple-error>, which is sealed in GD.
Suppress a compiler warning in the test suite.

Modified: trunk/libraries/regular-expressions/parse.dylan
==============================================================================
--- trunk/libraries/regular-expressions/parse.dylan	(original)
+++ trunk/libraries/regular-expressions/parse.dylan	Thu Jan 10 11:42:31 2008
@@ -116,8 +116,7 @@
   constant slot group-number :: <integer>, required-init-keyword: #"group"; 
 end class <parsed-backreference>;
 
-// Note: I'm pretty sure <simple-error> won't work in GD.  --cgay
-define class <regex-error> (<simple-error>)
+define class <regex-error> (<format-string-condition>, <error>)
 end class <regex-error>;
 
 define class <illegal-regex> (<regex-error>)

Modified: trunk/libraries/regular-expressions/tests/pcre.dylan
==============================================================================
--- trunk/libraries/regular-expressions/tests/pcre.dylan	(original)
+++ trunk/libraries/regular-expressions/tests/pcre.dylan	Thu Jan 10 11:42:31 2008
@@ -43,8 +43,9 @@
 define class <section> (<object>)
   constant slot section-lines :: <sequence>,
     required-init-keyword: #"lines";
-  constant slot start-line-number :: <integer>,
-    required-init-keyword: #"start-line-number";
+  // not used yet...
+  // constant slot start-line-number :: <integer>,
+  //  required-init-keyword: #"start-line-number";
   slot %index :: <integer> = 0;
 end class <section>;