Fixing stklos

2025-08-05 07:37:02 +03:00 · 2025-08-05 07:37:02 +03:00 · 0c27267600
parent 75f898e2a7
commit 0c27267600
1 changed files with 2 additions and 3 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -107,9 +107,8 @@
              (display "HERE c-null?: ")
              (write pointer)
              (newline)
-              (and (not (void? pointer))
-                   pointer
-                   (cpointer-null? pointer)))))
+              (and (pointer? pointer)
+                       (cpointer-null? pointer)))))
  (else (define c-null?
          (lambda (pointer)
            (if (c-bytevector? pointer)