From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 17 Nov 2019 22:51:36 +0000 (-0800)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~11
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=182a998416b6bde9900a4d51f518310d01d25643;p=mit-scheme.git

Fix typo.
---

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index aa09f977f..1b6182a5e 100644
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -420,7 +420,7 @@ USA.
 
 (define (substring string #!optional start end)
   (let* ((len (string-length string))
-	 (end (fix:end-index end (string-length string) 'substring))
+	 (end (fix:end-index end len 'substring))
 	 (start (fix:start-index start end 'substring)))
     ;; It shouldn't be necessary to copy immutable substrings, but some of these
     ;; find their way to Edwin so we can't return a slice here.  We will