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 d0a5e522a9e7e2dc9e7cb44202e76126e03eefa7..718d63287e1460cff7410ef6349895258fbab29e 100644 (file)
--- 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)))