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

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

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 64cd0fd..0fed821 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -105,7 +105,7 @@
   (stklos (define c-null?
             (lambda (pointer)
               (and pointer
-                   cpointer-null?))))
+                   (cpointer-null? pointer)))))
   (else (define c-null?
           (lambda (pointer)
             (if (c-bytevector? pointer)