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

diff --git a/src/edwin/rfc822.scm b/src/edwin/rfc822.scm
index b1fb4ce379b6cc196ab1fccb557fe2af200ecf37..d50a862ec338f5f2604774625ad0517cbe71b94e 100644 (file)
--- 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 271420d2ddd93a5ddb85ed750028a078fabbfb4e..4f6a334f8c0639cea0372614d426d8bfa45dd2b5 100644 (file)
--- 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)