Fix typo.

diff --git a/v7/src/runtime/rgxcmp.scm b/v7/src/runtime/rgxcmp.scm
index 3ef0917a39655afbb10701a38d85dc29c8519889..1178e858631087f504ed1d10c1e4ca314491f1db 100644 (file)
--- a/v7/src/runtime/rgxcmp.scm
+++ b/v7/src/runtime/rgxcmp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rgxcmp.scm,v 1.113 2001/03/21 05:39:59 cph Exp $
+;;; $Id: rgxcmp.scm,v 1.114 2001/03/21 05:42:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -17,7 +17,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.
+;;; 02111-1307, USA.
 
 ;;;; Regular Expression Pattern Compiler
 ;;;  Translated from GNU (thank you RMS!)

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index 255191d10d72ed25f30d68c43f3be9d78e6ade4d..d41630c4050ed2054176da493891a5aecc96dae5 100644 (file)
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: string.scm,v 14.41 2001/03/21 05:30:53 cph Exp $
+$Id: string.scm,v 14.42 2001/03/21 05:41:41 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -289,7 +289,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                 (if (< i n)
                     `((STRING-SET! STRING2 (FIX:+ START2 ,i)
                                    (STRING-REF STRING1 (FIX:+ START1 ,i)))
-                      ,@(loop (+ i 1))))))))
+                      ,@(loop (+ i 1)))
+                    '())))))
        (unrolled-move-right
        (lambda (n)
          `(BEGIN
@@ -297,7 +298,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                 (if (< i n)
                     `(,@(loop (+ i 1))
                       (STRING-SET! STRING2 (FIX:+ START2 ,i)
-                                   (STRING-REF STRING1 (FIX:+ START1 ,i))))))
+                                   (STRING-REF STRING1 (FIX:+ START1 ,i))))
+                    '()))
             (STRING-SET! STRING2 START2 (STRING-REF STRING1 START1))))))
     (let ((n (fix:- end1 start1)))
       (if (or (not (eq? string2 string1)) (fix:< start2 start1))