From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Apr 2017 05:06:25 +0000 (-0700)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~138
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61fb24fff030fc77e88ef67cfc8cc7973dbaaa64;p=mit-scheme.git

Fix typo.
---

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index d2762af60..17ac5fc59 100644
--- a/src/edwin/string.scm
+++ b/src/edwin/string.scm
@@ -581,7 +581,7 @@ USA.
     (do ((i start (fix:+ i 1))
 	 (j 0 (fix:+ j 1)))
 	((not (fix:< i end)))
-      (string-set! string j (char->integer (bytevector-u8-ref bv i))))
+      (string-set! string j (integer->char (bytevector-u8-ref bv i))))
     string))
 
 (define (textual-input-port->binary textual-port)