From 12d3ed5c3da7983ad6653abcf3b10dc2e3df3333 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 5 Aug 2025 07:37:32 +0300 Subject: [PATCH] Fixing stklos --- foreign/c/pointer.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index f9e56a3..5a591cf 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -107,8 +107,8 @@ (display "HERE c-null?: ") (write pointer) (newline) - (and (pointer? pointer) - (cpointer-null? pointer))))) + (and (pointer? c-bytevector?) + (cpointer-null? pointer))))) (else (define c-null? (lambda (pointer) (if (c-bytevector? pointer)