[Coldstuff] Bugs in Genesis...

[Allen Noe]

This is a multi-part message in MIME format.
--------------A0B41C81C4E41DA0C3240539
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Bruce Mitchener wrote:
> 
> How about someone send me a tested patch along with a patch for the
> tests to help prevent this sort of thing from happening again?

OK, here's a testcase. I still wouldn't call the patch tested, but it makes
coldcc not segfault when compiling test.in.
--------------A0B41C81C4E41DA0C3240539
Content-Type: text/plain; charset=us-ascii;
 name="test.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="test.patch"

--- test/test.in.old	Wed Jan  9 23:30:11 2002
+++ test/test.in	Thu Mar 28 01:10:17 2002
@@ -682,6 +682,7 @@
 		  "am" in "llama" ==> 3
 		  "bc" in "llama" ==> 0
 		  4 in 'foo ==> ~type
+		  `[10, 13] in `[10, 10] ==> 0
 		 Logic
 		  1 && 1 ==> 1
 		  1 && 0 ==> 0
@@ -773,6 +774,7 @@
     dblog("  \"am\" in \"llama\" ==> " + toliteral("am" in "llama"));
     dblog("  \"bc\" in \"llama\" ==> " + toliteral("bc" in "llama"));
     dblog("  4 in 'foo ==> " + toliteral((| 4 in 'foo |)));
+    dblog("  `[10, 13] in `[10, 10] ==> " + toliteral((| `[10, 13] in `[10, 10] |)));
     dblog(" Logic");
     dblog("  1 && 1 ==> " + toliteral(1 && 1));
     dblog("  1 && 0 ==> " + toliteral(1 && 0));

--------------A0B41C81C4E41DA0C3240539--