Ypsilon uint8-set! comments

2025-07-23 11:06:52 +03:00 · 2025-07-23 11:06:52 +03:00 · ae4b0e8f95
parent fee8d23458
commit ae4b0e8f95
1 changed files with 3 additions and 0 deletions
--- 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