From 56d621db06e976f4a849cfbdefae0baa518c8c46 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 23 Jul 2025 10:22:54 +0300
Subject: [PATCH] Ypsilon uint8-ref fixes

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

diff --git a/foreign/c/primitives/ypsilon.scm b/foreign/c/primitives/ypsilon.scm
index b38043e..de74f59 100644
--- a/foreign/c/primitives/ypsilon.scm
+++ b/foreign/c/primitives/ypsilon.scm
@@ -30,14 +30,14 @@
 
 (define c-bytevector-u8-set!
   (lambda (c-bytevector k byte)
-    (bytevector-c-int8-set! (make-bytevector-mapping (+ c-bytevector k)
+    (bytevector-c-uint8-set! (make-bytevector-mapping (+ c-bytevector k)
                                                      (c-type-size 'uint8))
                             0
                             byte)))
 
 (define c-bytevector-u8-ref
   (lambda (c-bytevector k)
-      (bytevector-c-int8-ref (make-bytevector-mapping (+ c-bytevector k)
+      (bytevector-c-uint8-ref (make-bytevector-mapping (+ c-bytevector k)
                                                       (c-type-size 'uint8))
                              0)))
 (define c-bytevector-pointer-set!