From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Mar 2000 21:23:38 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4171
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92075dca8e7b85b03d2b2eb263a9be26bd84f541;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/runtime/regexp.scm b/v7/src/runtime/regexp.scm
index 718d63287..d2cc08c08 100644
--- a/v7/src/runtime/regexp.scm
+++ b/v7/src/runtime/regexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: regexp.scm,v 1.6 1999/12/20 02:09:43 cph Exp $
+;;; $Id: regexp.scm,v 1.7 2000/03/21 21:23:38 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -122,7 +122,7 @@
 			    (ucode-primitive re-search-substring-backward)))
 
 (define (make-string-operation substring-operation)
-  (lambda (regexp string #!optional case-fold? regs syntax-table)
+  (lambda (regexp string #!optional case-fold? syntax-table)
     (substring-operation regexp string 0 (string-length string)
 			 (if (default-object? case-fold?) #f case-fold?)
 			 (if (default-object? syntax-table) #f syntax-table))))