Fixing stklos

2025-08-05 07:35:54 +03:00 · 2025-08-05 07:35:54 +03:00 · 75f898e2a7
parent 0ef7549180
commit 75f898e2a7
1 changed files with 3 additions and 0 deletions
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@ -104,6 +104,9 @@
  (gauche (define c-null? pointer-null?))
  (stklos (define c-null?
            (lambda (pointer)
+              (display "HERE c-null?: ")
+              (write pointer)
+              (newline)
              (and (not (void? pointer))
                   pointer
                   (cpointer-null? pointer)))))