From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Mar 2001 05:42:20 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~2878
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97ceb0333c7f7745f7268c432a0ea7b8b15b0ed1;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/runtime/rgxcmp.scm b/v7/src/runtime/rgxcmp.scm
index 3ef0917a3..1178e8586 100644
--- 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 255191d10..d41630c40 100644
--- 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))