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

---
 foreign/c/primitives/racket.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/foreign/c/primitives/racket.scm b/foreign/c/primitives/racket.scm
index abe7eca..5f93fde 100644
--- a/foreign/c/primitives/racket.scm
+++ b/foreign/c/primitives/racket.scm
@@ -59,11 +59,11 @@
 
 (define c-bytevector-u8-set!
   (lambda (c-bytevector k byte)
-    (ptr-set! c-bytevector _ubyte 'abs k byte)))
+    (ptr-set! c-bytevector _uint8 'abs k byte)))
 
 (define c-bytevector-u8-ref
   (lambda (c-bytevector k)
-    (let ((result (ptr-ref c-bytevector _ubyte 'abs k)))
+    (let ((result (ptr-ref c-bytevector _uint8 'abs k)))
       (display "c-bytevector: ")
       (display c-bytevector)
       (newline)