Convert a string-allocate reference to make-bytevector.

diff --git a/src/runtime/socket.scm b/src/runtime/socket.scm
index 1ed0f5a0745bfa5756fb038dc23334155e515fde..afffca8e2a58318b0f8ad0f961c8724b01151b20 100644 (file)
--- a/src/runtime/socket.scm
+++ b/src/runtime/socket.scm
@@ -201,7 +201,7 @@ USA.
   (canonical-host-name (get-host-name)))
 
 (define (allocate-host-address)
-  (string-allocate ((ucode-primitive host-address-length 0))))
+  (make-bytevector ((ucode-primitive host-address-length 0))))
 
 (define host-address-any
   (ucode-primitive host-address-any 0))