From af7d7ae281d0b5e60fcb10c4c8a8eabc1874110c Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 26 Jul 2025 09:18:28 +0300
Subject: [PATCH] Fixing Mosh

---
 foreign/c/pointer.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 5162284..361ff32 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -102,8 +102,10 @@
   (chibi #t)
   (gauche (define c-null? pointer-null?))
   (mosh (define c-null?
-          (lambda (pointer) (and (c-bytevector? pointer)
-                                 (pointer-null? pointer)))))
+          (lambda (pointer)
+            (if (c-bytevector? pointer)
+              (pointer-null? pointer)
+              #f))))
   (else (define c-null?
           (lambda (pointer)
             (display "HERE123: ")