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

Fixing Kawa

This commit is contained in:
retropikzel 2025-07-26 18:43:05 +03:00
parent 5c5b0f5eba
commit 065666f343
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
foreign/c/pointer.scm
View File

@ -83,7 +83,8 @@
(define string->c-utf8
(lambda (string-var)
(bytevector->c-bytevector (string->utf8 (string-append string-var (string #\null))))))
(bytevector->c-bytevector
(string->utf8 (string-append string-var (string #\null))))))
(cond-expand
(chicken #t) ; FIXME
@ -103,13 +104,6 @@
(gauche (define c-null? pointer-null?))
(else (define c-null?
(lambda (pointer)
(display "HERE123: ")
(write pointer)
(newline)
(display (if (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0)
#f))
(newline)
(if (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0)
#f)))))