Fixing stklos

2025-08-05 07:42:21 +03:00 · 2025-08-05 07:42:21 +03:00 · 14c5960125
parent d90f9cee3c
commit 14c5960125
1 changed files with 0 additions and 8 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -102,14 +102,6 @@
  (kawa #t) ; FIXME
  (chibi #t)
  (gauche (define c-null? pointer-null?))
-  (stklos (define c-null?
-            (lambda (pointer)
-              (display "HERE c-null?: ")
-              (write pointer)
-              (newline)
-              (and (not (void? pointer))
-                   (c-bytevector? c-bytevector?)
-                   (cpointer-null? pointer)))))
  (else (define c-null?
          (lambda (pointer)
            (if (c-bytevector? pointer)