Fixing stklos

2025-08-05 07:28:48 +03:00 · 2025-08-05 07:28:48 +03:00 · 5556e782d5
parent cf6d150f3d
commit 5556e782d5
1 changed files with 4 additions and 1 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -102,7 +102,10 @@
  (kawa #t) ; FIXME
  (chibi #t)
  (gauche (define c-null? pointer-null?))
-  (stklos (define c-null? cpointer-null?))
+  (stklos (define c-null?
+            (lambda (pointer)
+              (and pointer
+                   cpointer-null?))))
  (else (define c-null?
          (lambda (pointer)
            (if (c-bytevector? pointer)