From 14c5960125600a030cba6b1d1ea8378ec94c3d35 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 5 Aug 2025 07:42:21 +0300 Subject: [PATCH] Fixing stklos --- foreign/c/pointer.scm | 8 -------- 1 file changed, 8 deletions(-) diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index 6ff54d1..f99bb55 100644 --- 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)