From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Nov 2019 07:38:32 +0000 (-0800)
Subject: Fix typo from earlier commit.
X-Git-Tag: mit-scheme-pucked-10.1.20~10^2~49
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8194b2f49a38030c1d1bcf5b02b32954a68b300f;p=mit-scheme.git

Fix typo from earlier commit.
---

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index a113e2985..962fb21c0 100644
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -631,15 +631,15 @@ USA.
     ((1)
      (do ((i 0 (fix:+ i 1)))
 	 ((not (fix:< i count)) unspecific)
-       (cp1-set! result i (vector-ref chars i))))
+       (cp1-set! result i (char->integer (vector-ref chars i)))))
     ((2)
      (do ((i 0 (fix:+ i 1)))
 	 ((not (fix:< i count)) unspecific)
-       (cp2-set! result i (vector-ref chars i))))
+       (cp2-set! result i (char->integer (vector-ref chars i)))))
     (else
      (do ((i 0 (fix:+ i 1)))
 	 ((not (fix:< i count)) unspecific)
-       (cp3-set! result i (vector-ref chars i)))))
+       (cp3-set! result i (char->integer (vector-ref chars i))))))
   result)
 
 (define (%make-string-builder initial-buffer-length)