diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index 569c417..eb5fc30 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -101,7 +101,7 @@ (else (define c-null? (lambda (pointer) (if (c-bytevector? pointer) - (= (c-memset-pointer->address pointer 0 0 0) 0) + (= (c-memset-pointer->address pointer 0 0) 0) #f))))) #;(define c-bytevector->address