Working on Gambit implementation

Makefile

@@ -88,3 +88,7 @@ clean:
 	find . -name "core.1" -delete
 	find . -name "*@gambit*" -delete
 	rm -rf retropikzel/pffi.c
+	rm -rf tests/compliance.c
+	rm -rf tests/compliance.o
+	rm -rf tests/compliance.so
+	rm -rf tests/compliance

retropikzel/pffi.sld

@@ -135,7 +135,7 @@
               (scheme char)
               (scheme file)
               (scheme process-context)
-              (only (gambit) c-declare c-lambda c-define))
+              (only (gambit) c-declare c-lambda c-define define-macro))
       (export pffi-init
               pffi-size-of
               pffi-type?

retropikzel/pffi/shared/main.scm

@@ -88,11 +88,7 @@
       res)))
 
 (cond-expand
-  (gambit
-    (define-macro
-      (pffi-load headers object-name options)
-      `(pffi-shared-object-load ,(car headers))))
-
+  (gambit #t)
   ((or chicken cyclone)
    (define-syntax pffi-load
      (syntax-rules ()