From 2e2f55c666f4724c0bacdcc3269fcf1ab41313ea Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 23 Jul 2025 20:16:14 +0300
Subject: [PATCH] Fixing Racket uint8-ref/set!

---
 foreign/c/c-bytevectors.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/foreign/c/c-bytevectors.scm b/foreign/c/c-bytevectors.scm
index abafbe0..31f380e 100644
--- a/foreign/c/c-bytevectors.scm
+++ b/foreign/c/c-bytevectors.scm
@@ -455,7 +455,7 @@
 
 (define (native-endianness)
   (cond-expand (little-endian 'little)
-               (racket 'little) ;; FIXME
+               (racket (if (system-big-endian?) 'big 'little))
                (else 'big)))
 
 ;;; Already defined by (scheme base):