Attempt at pffi-init for ypsilon

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))))
 

test.scm

@@ -3,8 +3,7 @@
         (scheme char)
         (scheme file)
         (scheme process-context)
-        (retropikzel pffi)
+        (retropikzel pffi))
-        (ypsilon c-ffi))
 
 (define header-count 1)