From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 2000 21:52:57 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4003
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0df00bc50b4ff71faf0286f5daa81e6a0b129748;p=mit-scheme.git

Fix typo.
---

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