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

Ypsilon uint8-ref fixes

This commit is contained in:
retropikzel 2025-07-23 10:25:31 +03:00
parent 56d621db06
commit e01b173842
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,14 +30,14 @@
(define c-bytevector-u8-set! (define c-bytevector-u8-set!
(lambda (c-bytevector k byte) (lambda (c-bytevector k byte)
(bytevector-c-uint8-set! (make-bytevector-mapping (+ c-bytevector k) (bytevector-c-uint8_t-set! (make-bytevector-mapping (+ c-bytevector k)
(c-type-size 'uint8)) (c-type-size 'uint8))
0 0
byte))) byte)))
(define c-bytevector-u8-ref (define c-bytevector-u8-ref
(lambda (c-bytevector k) (lambda (c-bytevector k)
(bytevector-c-uint8-ref (make-bytevector-mapping (+ c-bytevector k) (bytevector-c-uint8_t-ref (make-bytevector-mapping (+ c-bytevector k)
(c-type-size 'uint8)) (c-type-size 'uint8))
0))) 0)))
(define c-bytevector-pointer-set! (define c-bytevector-pointer-set!