From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 2017 00:53:53 +0000 (-0700)
Subject: Fix typo causing memory corruption.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e5abde4895290bac6829377069996d57deca07f;p=mit-scheme.git

Fix typo causing memory corruption.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 3607bfd17..eab35875c 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