From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 22 Apr 2017 14:27:44 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~10^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=88b082cadbfcf4c98bb1c9ac368b43821fbe8ac3;p=mit-scheme.git

Fix typo.

XXX Obviously this needs an automatic test!

From mejja.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 521c74d90..7ab0a4b4b 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -206,7 +206,7 @@ USA.
 (define (immutable-ustring-allocate n max-cp)
   (cond ((fix:< max-cp #x100)
 	 (let ((s (%ustring-allocate (fix:+ n 1) n 1)))
-	   (ustring-in-nfc! string)
+	   (ustring-in-nfc! s)
 	   (if (fix:< max-cp #xC0)
 	       (ustring-in-nfd! s))
 	   (ustring1-set! s n #\null)	;zero-terminate for C