From a08a9dbd6df65db49f18de5a0a904763e415576a Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 5 Aug 2025 08:22:17 +0300 Subject: [PATCH] Fixing stklos --- foreign/c/pointer.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index cbe8d78..0010450 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -107,8 +107,7 @@ (stklos (define c-null? (lambda (pointer) (cond ((void? pointer) #t) - ((and ;(c-bytevector? pointer) - (= (c-memset-pointer->address pointer 0 0) 0)) #t) + ((= (c-memset-pointer->address pointer 0 0) 0) #t) (else #f))))) (else (define c-null? (lambda (pointer)