Fix typo from earlier commit.
authorChris Hanson <org/chris-hanson/cph>
Mon, 25 Nov 2019 07:38:32 +0000 (23:38 -0800)
committerChris Hanson <org/chris-hanson/cph>
Mon, 25 Nov 2019 08:38:17 +0000 (00:38 -0800)
src/runtime/string.scm

index a113e298544f4a8c0674b8a65bffc924122c0c6e..962fb21c01257c898d278809b3f81e502b175fcf 100644 (file)
@@ -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)
 \f
 (define (%make-string-builder initial-buffer-length)