From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Jul 2000 00:41:45 +0000 (+0000)
Subject: Fix harmless bug in REXP?
X-Git-Tag: 20090517-FFI~3370
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f3b367f9d6a2770044b741a050de99cce969b64;p=mit-scheme.git

Fix harmless bug in REXP?
---

diff --git a/v7/src/imail/rexp.scm b/v7/src/imail/rexp.scm
index 257ea6cb0..94651a8d1 100644
--- a/v7/src/imail/rexp.scm
+++ b/v7/src/imail/rexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rexp.scm,v 1.14 2000/04/18 21:52:57 cph Exp $
+;;; $Id: rexp.scm,v 1.15 2000/07/08 00:41:45 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -40,6 +40,9 @@
 				   (string-null? rexp))
 			      (and (pair? rexp)
 				   (memq (car rexp) boundary-rexp-types))))))
+	       ((CASE-FOLD)
+		(and (fix:= 1 (length (cdr rexp)))
+		     (string? (cadr exp))))
 	       ((ANY-CHAR LINE-START LINE-END STRING-START STRING-END
 			  WORD-EDGE NOT-WORD-EDGE WORD-START WORD-END
 			  WORD-CHAR NOT-WORD-CHAR)
diff --git a/v7/src/runtime/rexp.scm b/v7/src/runtime/rexp.scm
index 257ea6cb0..94651a8d1 100644
--- a/v7/src/runtime/rexp.scm
+++ b/v7/src/runtime/rexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rexp.scm,v 1.14 2000/04/18 21:52:57 cph Exp $
+;;; $Id: rexp.scm,v 1.15 2000/07/08 00:41:45 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -40,6 +40,9 @@
 				   (string-null? rexp))
 			      (and (pair? rexp)
 				   (memq (car rexp) boundary-rexp-types))))))
+	       ((CASE-FOLD)
+		(and (fix:= 1 (length (cdr rexp)))
+		     (string? (cadr exp))))
 	       ((ANY-CHAR LINE-START LINE-END STRING-START STRING-END
 			  WORD-EDGE NOT-WORD-EDGE WORD-START WORD-END
 			  WORD-CHAR NOT-WORD-CHAR)