From bb09c58f9f8405eefeaca4618a32b26f8ce12895 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 13 Mar 2025 16:34:49 +0200 Subject: [PATCH] Attempt at pffi-init for ypsilon --- retropikzel/pffi/shared/main.scm | 5 +++++ test.scm | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/retropikzel/pffi/shared/main.scm b/retropikzel/pffi/shared/main.scm index 3f9263f..c8286e8 100644 --- a/retropikzel/pffi/shared/main.scm +++ b/retropikzel/pffi/shared/main.scm @@ -6,6 +6,11 @@ '(import (chicken foreign) (chicken memory)) #t)))) + (ypsilon + (define-syntax pffi-init + (lambda (x) + (syntax-case x () + ((_) '(import (ypsilon c-ffi))))))) (else (define pffi-init(lambda () #t)))) diff --git a/test.scm b/test.scm index e42fac3..da70f09 100755 --- a/test.scm +++ b/test.scm @@ -3,8 +3,7 @@ (scheme char) (scheme file) (scheme process-context) - (retropikzel pffi) - (ypsilon c-ffi)) + (retropikzel pffi)) (define header-count 1)