Fixing Mosh

2025-07-26 09:23:58 +03:00 · 2025-07-26 09:23:58 +03:00 · 62dd4ce93d
parent 272d9eadea
commit 62dd4ce93d
1 changed files with 1 additions and 13 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -100,19 +100,7 @@
  (chicken #t) ; FIXME
  (kawa #t) ; FIXME
  (chibi #t)
-  (gauche (define c-null? pointer-null?))
-  #;(mosh (define c-null?
-          (lambda (pointer)
-            (display "HERE5: ")
-            (display pointer)
-            (newline)
-            (display (if (c-bytevector? pointer)
-              (pointer-null? pointer)
-              #f))
-            (newline)
-            (if (c-bytevector? pointer)
-              (pointer-null? pointer)
-              #f))))
+  ;(gauche (define c-null? pointer-null?))
  (else (define c-null?
          (lambda (pointer)
            (display "HERE123: ")