From 50df6bc3c927aa7b85265e8025cf1bd878adf30b Mon Sep 17 00:00:00 2001 From: retropikzel Date: Wed, 23 Jul 2025 10:28:03 +0300 Subject: [PATCH] Ypsilon uint8-ref fixes --- foreign/c/primitives/ypsilon.scm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/foreign/c/primitives/ypsilon.scm b/foreign/c/primitives/ypsilon.scm index 095b67a..26cbf99 100644 --- a/foreign/c/primitives/ypsilon.scm +++ b/foreign/c/primitives/ypsilon.scm @@ -40,14 +40,19 @@ (bytevector-c-uint8_t-ref (make-bytevector-mapping (+ c-bytevector k) (c-type-size 'uint8)) 0))) + (define c-bytevector-pointer-set! (lambda (c-bytevector k pointer) - (let ((bv (make-bytevector-mapping (+ c-bytevector k) (c-type-size 'pointer)))) - (bytevector-c-void*-set! bv 0 pointer)))) + (bytevector-c-void*-set! (make-bytevector-mapping (+ c-bytevector k) + (c-type-size 'pointer)) + 0 + pointer))) + (define c-bytevector-pointer-ref (lambda (c-bytevector k) - (let ((bv (make-bytevector-mapping (+ c-bytevector k) (c-type-size 'pointer)))) - (bytevector-c-void*-ref bv 0)))) + (bytevector-c-void*-ref (make-bytevector-mapping (+ c-bytevector k) + (c-type-size 'pointer)) + 0))) #;(define pointer-set! (lambda (pointer type offset value)