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

Stklos fixes

Browse Source
This commit is contained in:
Retropikzel
2025-08-24 06:09:51 +03:00
parent 8b1f65122a
commit 4ec20bfda6
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
foreign/c/primitives/stklos.scm
+4 -4
View File
@@ -100,16 +100,16 @@
(define c-bytevector-u8-set!
(lambda (pointer offset value)
(cpointer-set! pointer :uint8 value offset)))
(cpointer-set-abs! pointer :uint8 value offset)))
(define c-bytevector-u8-ref
(lambda (pointer offset)
(cpointer-ref pointer :uint8 offset)))
(cpointer-ref-abs pointer :uint8 offset)))
(define c-bytevector-pointer-set!
(lambda (pointer offset value)
(cpointer-set! pointer :pointer value offset)))
(cpointer-set-abs! pointer :pointer value offset)))
(define c-bytevector-pointer-ref
(lambda (pointer offset)
(cpointer-ref pointer :pointer offset)))
(cpointer-ref-abs pointer :pointer offset)))