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:42:21 +03:00
parent d90f9cee3c
commit 14c5960125
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
foreign/c/pointer.scm
View File

@ -102,14 +102,6 @@
(kawa #t) ; FIXME (kawa #t) ; FIXME
(chibi #t) (chibi #t)
(gauche (define c-null? pointer-null?)) (gauche (define c-null? pointer-null?))
(stklos (define c-null?
(lambda (pointer)
(display "HERE c-null?: ")
(write pointer)
(newline)
(and (not (void? pointer))
(c-bytevector? c-bytevector?)
(cpointer-null? pointer)))))
(else (define c-null? (else (define c-null?
(lambda (pointer) (lambda (pointer)
(if (c-bytevector? pointer) (if (c-bytevector? pointer)