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 07:31:08 +03:00
parent f49da5bd7f
commit 0ef7549180
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
foreign/c/pointer.scm
View File

@ -104,7 +104,8 @@
(gauche (define c-null? pointer-null?)) (gauche (define c-null? pointer-null?))
(stklos (define c-null? (stklos (define c-null?
(lambda (pointer) (lambda (pointer)
(and pointer (and (not (void? pointer))
pointer
(cpointer-null? pointer))))) (cpointer-null? pointer)))))
(else (define c-null? (else (define c-null?
(lambda (pointer) (lambda (pointer)