From f5de64a46e3067c40f2f582db47d88bd59f6b1ad Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 11 Nov 2001 05:56:08 +0000
Subject: [PATCH] Fix typo.

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

diff --git a/v7/src/runtime/rexp.scm b/v7/src/runtime/rexp.scm
index e2a815138..32a6e65b3 100644
--- a/v7/src/runtime/rexp.scm
+++ b/v7/src/runtime/rexp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rexp.scm,v 1.17 2001/10/05 15:54:35 cph Exp $
+$Id: rexp.scm,v 1.18 2001/11/11 05:56:08 cph Exp $
 
 Copyright (c) 2000, 2001 Massachusetts Institute of Technology
 
@@ -186,7 +186,7 @@ USA.
 		 ((CASE-FOLD)
 		  (let ((arg (one-arg)))
 		    (cond ((string? arg) (case-fold-string arg))
-			  ((char-set? arg) (case-fold-char-et arg))
+			  ((char-set? arg) (case-fold-char-set arg))
 			  (else (lose)))))
 		 ((ANY-CHAR) ".")
 		 ((LINE-START) "^")
-- 
2.25.1