Fixing stklos

2025-08-05 08:22:17 +03:00 · 2025-08-05 08:22:17 +03:00 · a08a9dbd6d
parent 1e8c55186c
commit a08a9dbd6d
1 changed files with 1 additions and 2 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -107,8 +107,7 @@
  (stklos (define c-null?
            (lambda (pointer)
              (cond ((void? pointer) #t)
-                    ((and ;(c-bytevector? pointer)
-                          (= (c-memset-pointer->address pointer 0 0) 0)) #t)
+                    ((= (c-memset-pointer->address pointer 0 0) 0) #t)
                    (else #f)))))
  (else (define c-null?
          (lambda (pointer)