From a7dc4e5933dd02471f13923a0ec110c0490646b4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Feb 2017 22:26:36 -0800
Subject: [PATCH] Convert a bunch of string-allocate references to make-string.

---
 src/edwin/rfc822.scm   | 2 +-
 src/runtime/usrint.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1