From 8194b2f49a38030c1d1bcf5b02b32954a68b300f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 24 Nov 2019 23:38:32 -0800 Subject: [PATCH] Fix typo from earlier commit. --- src/runtime/string.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1