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

Improve chicken pffi-pointer-null?

This commit is contained in:
retropikzel 2024-10-15 20:16:21 +03:00
parent 93962b3403
commit 539adeb2d5
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
retropikzel/r7rs-pffi.sld
View File

@ -4,8 +4,8 @@
(chicken (chicken
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file)
(scheme char) (scheme char)
(scheme file)
(scheme process-context) (scheme process-context)
(chicken foreign) (chicken foreign)
(chicken locative) (chicken locative)

6
retropikzel/r7rs-pffi/chicken.scm
View File

@ -200,9 +200,11 @@
(define pffi-pointer-null? (define pffi-pointer-null?
(lambda (pointer) (lambda (pointer)
(if (not (pointer? pointer)) (if (and (not (pointer? pointer))
pointer)
#f #f
(= (pointer->address pointer) 0)))) (or (not pointer) ; #f counts as null pointer on Chicken
(= (pointer->address pointer) 0)))))
(define pffi-pointer-set! (define pffi-pointer-set!
(lambda (pointer type offset value) (lambda (pointer type offset value)

3
retropikzel/r7rs-pffi/stklos.scm
View File

@ -118,6 +118,7 @@
(lambda (pointer type offset) (lambda (pointer type offset)
(error "Not implemented"))) (error "Not implemented")))
(define pffi-pointer-deref (define pffi-pointer-address
(lambda (pointer) (lambda (pointer)
(error "Not implemented"))) (error "Not implemented")))