From 4c08809dcdd869f22b425246622b46a8deadbf6c Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 5 Aug 2025 08:20:30 +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 5cde6ec..60c68a2 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -78,7 +78,7 @@ (lambda (c-bytevector) (display c-bytevector) (newline) - #;(when (c-null? c-bytevector) + (when (c-null? c-bytevector) (error "Can not turn null pointer into string" c-bytevector)) (let ((size (c-strlen c-bytevector))) (utf8->string (c-bytevector->bytevector c-bytevector size))))) @@ -106,7 +106,7 @@ (gauche (define c-null? pointer-null?)) (stklos (define c-null? (lambda (pointer) - (cond ((void? pointer) #t) + (cond ;((void? pointer) #t) ((and (c-bytevector? pointer) (= (c-memset-pointer->address pointer 0 0) 0)) #t (else #f))))))