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

Fixing Gauche pointer handling

This commit is contained in:
retropikzel 2025-07-25 11:54:34 +03:00
parent 38dd3b391f
commit 533767a3b0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
foreign/c/pointer.scm
View File

@ -102,6 +102,9 @@
(chibi #t) (chibi #t)
(else (define c-null? (else (define c-null?
(lambda (pointer) (lambda (pointer)
(display "HERE: ")
(write pointer)
(newline)
(if (c-bytevector? pointer) (if (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0) (= (c-memset-pointer->address pointer 0 0) 0)
#f))))) #f)))))