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

Cyclone include fixes. Add pffi-pointer-dereference to Racket.

This commit is contained in:
retropikzel 2024-11-14 21:34:11 +02:00
parent 6bb46c09c0
commit 20a05a5dc0
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
retropikzel/r7rs-pffi.sld
View File

@ -28,7 +28,7 @@
;pffi-pointer-dereference ;pffi-pointer-dereference
) )
(include-shared "r7rs-pffi/r7rs-pffi-chibi")) (include-shared "r7rs-pffi/r7rs-pffi-chibi"))
(chicken (chicken-5
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -416,7 +416,7 @@
(cond-expand (cond-expand
(chibi (include "r7rs-pffi/chibi.scm")) (chibi (include "r7rs-pffi/chibi.scm"))
(chicken (include "r7rs-pffi/chicken.scm")) (chicken (include "r7rs-pffi/chicken.scm"))
(cyclone (include "retropikzel/r7rs-pffi/cyclone.scm")) (cyclone (include "r7rs-pffi/cyclone.scm"))
(gambit (include "r7rs-pffi/gambit.scm")) (gambit (include "r7rs-pffi/gambit.scm"))
(gauche (include "r7rs-pffi/gauche.scm")) (gauche (include "r7rs-pffi/gauche.scm"))
(gerbil (include "r7rs-pffi/gerbil.scm")) (gerbil (include "r7rs-pffi/gerbil.scm"))
@ -432,6 +432,5 @@
(ypsilon (include "r7rs-pffi/ypsilon.scm")) (ypsilon (include "r7rs-pffi/ypsilon.scm"))
(else #t)) (else #t))
(cond-expand (cond-expand
(cyclone (include "retropikzel/r7rs-pffi/main.scm"))
(stklos (include "retropikzel/r7rs-pffi/main.scm")) (stklos (include "retropikzel/r7rs-pffi/main.scm"))
(else (include "r7rs-pffi/main.scm")))) (else (include "r7rs-pffi/main.scm"))))

4
retropikzel/r7rs-pffi/racket.scm
View File

@ -106,3 +106,7 @@
(if (equal? type 'char) (if (equal? type 'char)
(integer->char r) (integer->char r)
r)))) r))))
(define pffi-pointer-dereference
(lambda (pointer)
pointer))