Fixing Mosh

2025-07-26 09:18:28 +03:00 · 2025-07-26 09:18:28 +03:00 · af7d7ae281
parent a7632ba80e
commit af7d7ae281
1 changed files with 4 additions and 2 deletions
--- 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: ")