From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Dec 1999 02:09:43 +0000 (+0000)
Subject: Fix typo in last change.  Change order of arguments to
X-Git-Tag: 20090517-FFI~4405
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e5a8bb5d3c674c634fecce1c6842ee961cb81cb0;p=mit-scheme.git

Fix typo in last change.  Change order of arguments to
RE-MATCH-EXTRACT.
---

diff --git a/v7/src/runtime/regexp.scm b/v7/src/runtime/regexp.scm
index d0a5e522a..718d63287 100644
--- a/v7/src/runtime/regexp.scm
+++ b/v7/src/runtime/regexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: regexp.scm,v 1.5 1999/12/16 22:06:31 cph Exp $
+;;; $Id: regexp.scm,v 1.6 1999/12/20 02:09:43 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -84,7 +84,7 @@
 				 (list "\\)")
 				 (cons "\\|" (loop (cdr alternatives)))))))))))
 
-(define (re-match-extrace string i regs)
+(define (re-match-extract string regs i)
   (substring string
 	     (re-match-start-index i regs)
 	     (re-match-end-index i regs)))