From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Feb 2017 06:26:36 +0000 (-0800)
Subject: Convert a bunch of string-allocate references to make-string.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7dc4e5933dd02471f13923a0ec110c0490646b4;p=mit-scheme.git

Convert a bunch of string-allocate references to make-string.
---

diff --git a/src/edwin/rfc822.scm b/src/edwin/rfc822.scm
index b1fb4ce37..d50a862ec 100644
--- a/src/edwin/rfc822.scm
+++ b/src/edwin/rfc822.scm
@@ -557,7 +557,7 @@ USA.
 
 (define (reverse-list->string list start end)
   (let* ((length (fix:- end start))
-         (string (string-allocate length)))
+         (string (make-string length)))
     (let loop ((list (list-tail list start))
                (index length))
       (cond ((fix:zero? index)
diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 271420d2d..4f6a334f8 100644
--- a/src/runtime/usrint.scm
+++ b/src/runtime/usrint.scm
@@ -211,7 +211,7 @@ USA.
 	    (set-string-length! str (fix:1+ i))
 	    (string-set! str i char)
 	    str)
-	  (let ((new (string-allocate (fix:+ 10 i))))
+	  (let ((new (make-string (fix:+ 10 i))))
 	    (if (not (string-null? str))
 		(begin
 		  (substring-move! str 0 i new 0)