From 0df00bc50b4ff71faf0286f5daa81e6a0b129748 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 2000 21:52:57 +0000
Subject: [PATCH] Fix typo.

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

diff --git a/v7/src/imail/rexp.scm b/v7/src/imail/rexp.scm
index 9d7ace812..257ea6cb0 100644
--- a/v7/src/imail/rexp.scm
+++ b/v7/src/imail/rexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rexp.scm,v 1.13 2000/04/14 01:45:45 cph Exp $
+;;; $Id: rexp.scm,v 1.14 2000/04/18 21:52:57 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -135,7 +135,7 @@
 
 (define (rexp-case-fold rexp)
   (cond ((and (string? rexp) (not (char-set? rexp)))
-	 `(CASE-FOLD rexp))
+	 `(CASE-FOLD ,rexp))
 	((and (pair? rexp)
 	      (memq (car rexp) '(ALTERNATIVES SEQUENCE GROUP OPTIONAL * +))
 	      (list? (cdr rexp)))
diff --git a/v7/src/runtime/rexp.scm b/v7/src/runtime/rexp.scm
index 9d7ace812..257ea6cb0 100644
--- a/v7/src/runtime/rexp.scm
+++ b/v7/src/runtime/rexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rexp.scm,v 1.13 2000/04/14 01:45:45 cph Exp $
+;;; $Id: rexp.scm,v 1.14 2000/04/18 21:52:57 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -135,7 +135,7 @@
 
 (define (rexp-case-fold rexp)
   (cond ((and (string? rexp) (not (char-set? rexp)))
-	 `(CASE-FOLD rexp))
+	 `(CASE-FOLD ,rexp))
 	((and (pair? rexp)
 	      (memq (car rexp) '(ALTERNATIVES SEQUENCE GROUP OPTIONAL * +))
 	      (list? (cdr rexp)))
-- 
2.25.1