Fixing stklos

2025-08-05 07:31:08 +03:00 · 2025-08-05 07:31:08 +03:00 · 0ef7549180
parent f49da5bd7f
commit 0ef7549180
1 changed files with 2 additions and 1 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -104,7 +104,8 @@
  (gauche (define c-null? pointer-null?))
  (stklos (define c-null?
            (lambda (pointer)
-              (and pointer
+              (and (not (void? pointer))
+                   pointer
                   (cpointer-null? pointer)))))
  (else (define c-null?
          (lambda (pointer)