From 3f3b367f9d6a2770044b741a050de99cce969b64 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Jul 2000 00:41:45 +0000
Subject: [PATCH] Fix harmless bug in REXP?

---
 v7/src/imail/rexp.scm   | 5 ++++-
 v7/src/runtime/rexp.scm | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

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)
-- 
2.25.1