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

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

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 8b8040b..c3d06c1 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -101,6 +101,9 @@
   (kawa #t) ; FIXME
   (chibi #t)
   (gauche (define c-null? pointer-null?))
+  (mosh (define c-null?
+          (lambda (pointer) (and (c-bytevector? pointer)
+                                 (= (pointer->integer pointer) 0)))))
   (else (define c-null?
           (lambda (pointer)
             (display "HERE123: ")