From a8264b23b55fad38c65020a1633feb89a63dc05c Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 23 Jul 2025 19:44:29 +0300
Subject: [PATCH] Fixing Racket uint8-ref/set!

---
 foreign/c.sld               | 4 ++--
 foreign/c/c-bytevectors.scm | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/foreign/c.sld b/foreign/c.sld
index 1ca6ada..4e7358b 100644
--- a/foreign/c.sld
+++ b/foreign/c.sld
@@ -59,8 +59,8 @@
               (scheme process-context)
               (system foreign)
               (system foreign-library)
-              (only (guile) include-from-path)
-              (only (rnrs bytevectors)
+              ;(only (guile) include-from-path)
+              #;(only (rnrs bytevectors)
                     bytevector-int8-set!
                     bytevector-uint-ref)))
     (kawa
diff --git a/foreign/c/c-bytevectors.scm b/foreign/c/c-bytevectors.scm
index 434ede9..23c2d3b 100644
--- a/foreign/c/c-bytevectors.scm
+++ b/foreign/c/c-bytevectors.scm
@@ -455,6 +455,7 @@
 
 (define (native-endianness)
   (cond-expand (little-endian 'little)
+               (racket 'little) ;; FIXME
                (else 'big)))
 
 ;;; Already defined by (scheme base):