Fixing stklos

2025-08-05 07:59:07 +03:00 · 2025-08-05 07:59:07 +03:00 · 654f8c6e51
parent 922eab6ea1
commit 654f8c6e51
1 changed files with 6 additions and 0 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -102,6 +102,12 @@
  (kawa #t) ; FIXME
  (chibi #t)
  (gauche (define c-null? pointer-null?))
+  (stklos (define c-null?
+            (lambda (pointer)
+              (cond ((void? pointer) #t)
+                    ((and (c-bytevector? pointer)
+                          (= (c-memset-pointer->address pointer 0 0) 0)) #t
+                     (else #f))))))
  (else (define c-null?
          (lambda (pointer)
            (if (c-bytevector? pointer)