From 182a998416b6bde9900a4d51f518310d01d25643 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 17 Nov 2019 14:51:36 -0800 Subject: [PATCH] Fix typo. --- src/runtime/string.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.25.1