From 26155832d889af5a59ad90a97f339867a2bb2396 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 19 Jul 2025 20:13:10 +0300 Subject: [PATCH] Bring things to new compile-r7rs --- foreign/c.sld | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/foreign/c.sld b/foreign/c.sld index 28ba5ad..cb88540 100644 --- a/foreign/c.sld +++ b/foreign/c.sld @@ -293,15 +293,13 @@ ;; c-variable ;define-c-variable (?) ) - (cond-expand - (chicken (include-relative "c/internal.scm")) - (else (include "c/internal.scm"))) + (include "c/internal.scm") (cond-expand (chibi (include "c/primitives/chibi.scm")) (chicken (export foreign-declare foreign-safe-lambda void) - (include-relative "c/primitives/chicken.scm")) + (include "c/primitives/chicken.scm")) ;(cyclone (include "c/primitives/cyclone.scm")) (gambit (include "c/primitives/gambit.scm")) (gauche (include "c/primitives/gauche/define-c-procedure.scm")) @@ -317,15 +315,10 @@ ;(tr7 (include "c/primitives/tr7.scm")) (ypsilon (export c-function c-callback) (include "c/primitives/ypsilon.scm"))) - (cond-expand - (chicken (include-relative "c/main.scm") - (include-relative "c/libc.scm") - (include-relative "c/c-bytevectors.scm") - (include-relative "c/pointer.scm")) - (else (include "c/main.scm") - (include "c/libc.scm") - (include "c/c-bytevectors.scm") - (include "c/pointer.scm"))) + (include "c/main.scm") + (include "c/libc.scm") + (include "c/c-bytevectors.scm") + (include "c/pointer.scm") ;(include "c/array.scm") ;(include "c/struct.scm") )