From 20a05a5dc0e9480d5c31813bd0436da194208855 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 14 Nov 2024 21:34:11 +0200 Subject: [PATCH] Cyclone include fixes. Add pffi-pointer-dereference to Racket. --- retropikzel/r7rs-pffi.sld | 5 ++--- retropikzel/r7rs-pffi/racket.scm | 4 ++++ 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/retropikzel/r7rs-pffi.sld b/retropikzel/r7rs-pffi.sld index 01ebb2d..da50bbf 100644 --- a/retropikzel/r7rs-pffi.sld +++ b/retropikzel/r7rs-pffi.sld @@ -28,7 +28,7 @@ ;pffi-pointer-dereference ) (include-shared "r7rs-pffi/r7rs-pffi-chibi")) - (chicken + (chicken-5 (import (scheme base) (scheme write) (scheme char) @@ -416,7 +416,7 @@ (cond-expand (chibi (include "r7rs-pffi/chibi.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")) (gauche (include "r7rs-pffi/gauche.scm")) (gerbil (include "r7rs-pffi/gerbil.scm")) @@ -432,6 +432,5 @@ (ypsilon (include "r7rs-pffi/ypsilon.scm")) (else #t)) (cond-expand - (cyclone (include "retropikzel/r7rs-pffi/main.scm")) (stklos (include "retropikzel/r7rs-pffi/main.scm")) (else (include "r7rs-pffi/main.scm")))) diff --git a/retropikzel/r7rs-pffi/racket.scm b/retropikzel/r7rs-pffi/racket.scm index deedf7c..28f6188 100644 --- a/retropikzel/r7rs-pffi/racket.scm +++ b/retropikzel/r7rs-pffi/racket.scm @@ -106,3 +106,7 @@ (if (equal? type 'char) (integer->char r) r)))) + +(define pffi-pointer-dereference + (lambda (pointer) + pointer))