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

---
 foreign/c/c-bytevectors.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/foreign/c/c-bytevectors.scm b/foreign/c/c-bytevectors.scm
index 04d80c7..14f3646 100644
--- a/foreign/c/c-bytevectors.scm
+++ b/foreign/c/c-bytevectors.scm
@@ -535,18 +535,24 @@
 (define (c-bytevector-uint-ref c-bytevector index endness size)
   (case endness
    ((big)
+    (display "BIG")
+    (newline)
     (do ((i 0 (+ i 1))
          (result 0 (+ (* 256 result)
                       (c-bytevector-u8-ref c-bytevector (+ index i)))))
         ((>= i size)
          result)))
    ((little)
+    (display "LITTLE")
+    (newline)
     (do ((i (- size 1) (- i 1))
          (result 0 (+ (* 256 result)
                       (c-bytevector-u8-ref c-bytevector (+ index i)))))
         ((< i 0)
          result)))
    (else
+    (display "ELSE")
+    (newline)
     (c-bytevector-uint-ref c-bytevector index (native-endianness) size))))
 
 (define (c-bytevector-sint-ref c-bytevector index endness size)