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

---
 foreign/c/c-bytevectors.scm     | 33 ---------------------------------
 foreign/c/primitives/racket.scm | 12 +-----------
 2 files changed, 1 insertion(+), 44 deletions(-)

diff --git a/foreign/c/c-bytevectors.scm b/foreign/c/c-bytevectors.scm
index 23c2d3b..abafbe0 100644
--- a/foreign/c/c-bytevectors.scm
+++ b/foreign/c/c-bytevectors.scm
@@ -531,45 +531,18 @@
 
 (define (c-bytevector-uint-ref c-bytevector index endness size)
   (cond ((equal? 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)))
    ((equal? endness '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)))
-  #;(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)
@@ -578,12 +551,6 @@
                                            index
                                            (+ index size -1))))
          (uresult (c-bytevector-uint-ref c-bytevector index endness size)))
-    (display "High byte: ")
-    (display high-byte)
-    (newline)
-    (display "Uresult: ")
-    (display uresult)
-    (newline)
     (if (> high-byte 127)
       (- uresult (expt 256 size))
       uresult)))
diff --git a/foreign/c/primitives/racket.scm b/foreign/c/primitives/racket.scm
index 5f93fde..be49d82 100644
--- a/foreign/c/primitives/racket.scm
+++ b/foreign/c/primitives/racket.scm
@@ -63,17 +63,7 @@
 
 (define c-bytevector-u8-ref
   (lambda (c-bytevector k)
-    (let ((result (ptr-ref c-bytevector _uint8 'abs k)))
-      (display "c-bytevector: ")
-      (display c-bytevector)
-      (newline)
-      (display "k: ")
-      (display k)
-      (newline)
-      (display "Result: ")
-      (display result)
-      (newline)
-      result)))
+    (ptr-ref c-bytevector _uint8 'abs k)))
 
 (define c-bytevector-pointer-set!
   (lambda (c-bytevector k pointer)