From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 May 2018 05:03:15 +0000 (-0700)
Subject: Use bytevector instead of string when detecting endianness.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=027ac9a2c3d9d8d3efdfe0ecb16ba3333618db15;p=mit-scheme.git

Use bytevector instead of string when detecting endianness.
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index 79077ebaa..c6b7e223b 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -83,7 +83,7 @@ USA.
   (case (object-datum
 	 (vector-ref
 	  (object-new-type (ucode-type vector)
-			   "\000\001\002\000\000\003\004\000")
+			   (bytevector 0 1 2 0 0 3 4 0))
 	  1))
     ((#x00010200 #x0001020000030400) #t)
     ((#x00020100 #x0004030000020100) #f)