diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index c6c3d1e..cbe8d78 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -107,7 +107,7 @@ (stklos (define c-null? (lambda (pointer) (cond ((void? pointer) #t) - ((and (c-bytevector? pointer) + ((and ;(c-bytevector? pointer) (= (c-memset-pointer->address pointer 0 0) 0)) #t) (else #f))))) (else (define c-null?