From ae4b0e8f958083b2340ba1aa1ca1b27eebf4743c Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 23 Jul 2025 11:06:52 +0300
Subject: [PATCH] Ypsilon uint8-set! comments

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

diff --git a/foreign/c/primitives/ypsilon.scm b/foreign/c/primitives/ypsilon.scm
index 8e5220b..d82c7af 100644
--- a/foreign/c/primitives/ypsilon.scm
+++ b/foreign/c/primitives/ypsilon.scm
@@ -30,6 +30,9 @@
 
 (define c-bytevector-u8-set!
   (lambda (c-bytevector k byte)
+    ;; Ypsilon for some reason does not have bytevector-c-uint8-set!
+    ;; or other bytevector-c-u*-set! procedures so we use
+    ;; bytevector-c-int8-set!
     (bytevector-c-int8-set! (make-bytevector-mapping (+ c-bytevector k)
                                                      (c-type-size 'uint8))
                             0