diff --git a/foreign/c.sld b/foreign/c.sld index ecdd752..67ecbbb 100644 --- a/foreign/c.sld +++ b/foreign/c.sld @@ -145,8 +145,8 @@ cpointer-null? cpointer-data cpointer-data-set! - cpointer-set! - cpointer-ref + cpointer-set-abs! + cpointer-ref-abs c-size-of void?)) (export ; calculate-struct-size-and-offsets diff --git a/foreign/c/primitives/stklos.scm b/foreign/c/primitives/stklos.scm index b28aeb5..3a6f12a 100644 --- a/foreign/c/primitives/stklos.scm +++ b/foreign/c/primitives/stklos.scm @@ -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)))