Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ypsilon uint8-set! comments

This commit is contained in:
retropikzel 2025-07-23 11:06:52 +03:00
parent fee8d23458
commit ae4b0e8f95
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
foreign/c/primitives/ypsilon.scm
View File

@ -30,6 +30,9 @@
(define c-bytevector-u8-set! (define c-bytevector-u8-set!
(lambda (c-bytevector k byte) (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) (bytevector-c-int8-set! (make-bytevector-mapping (+ c-bytevector k)
(c-type-size 'uint8)) (c-type-size 'uint8))
0 0