Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing stklos

This commit is contained in:
retropikzel 2025-08-05 08:21:33 +03:00
parent fdf69cedf8
commit 1e8c55186c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
foreign/c/pointer.scm
View File

@ -107,7 +107,7 @@
(stklos (define c-null? (stklos (define c-null?
(lambda (pointer) (lambda (pointer)
(cond ((void? pointer) #t) (cond ((void? pointer) #t)
((and (c-bytevector? pointer) ((and ;(c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0)) #t) (= (c-memset-pointer->address pointer 0 0) 0)) #t)
(else #f))))) (else #f)))))
(else (define c-null? (else (define c-null?