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

Fixing Racket uint8-ref/set!

This commit is contained in:
retropikzel 2025-07-23 17:02:28 +03:00
parent cd87578e03
commit 1e74458e85
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/racket.scm
View File

@ -59,11 +59,11 @@
(define c-bytevector-u8-set!
(lambda (c-bytevector k byte)
(ptr-set! c-bytevector _ubyte 'abs k byte)))
(ptr-set! c-bytevector _uint8 'abs k byte)))
(define c-bytevector-u8-ref
(lambda (c-bytevector k)
(let ((result (ptr-ref c-bytevector _ubyte 'abs k)))
(let ((result (ptr-ref c-bytevector _uint8 'abs k)))
(display "c-bytevector: ")
(display c-bytevector)
(newline)