From d90f9cee3c72cc8a90290bc2959a539fa5b64f49 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Tue, 5 Aug 2025 07:39:18 +0300
Subject: [PATCH] Fixing stklos

---
 foreign/c/pointer.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index ff7d710..6ff54d1 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -107,7 +107,8 @@
               (display "HERE c-null?: ")
               (write pointer)
               (newline)
-              (and (c-bytevector? c-bytevector?)
+              (and (not (void? pointer))
+                   (c-bytevector? c-bytevector?)
                    (cpointer-null? pointer)))))
   (else (define c-null?
           (lambda (pointer)