Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bring things to new compile-r7rs

This commit is contained in:
retropikzel 2025-07-19 20:13:10 +03:00
parent c30d78e139
commit 26155832d8
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
foreign/c.sld
View File

@ -293,15 +293,13 @@
;; c-variable ;; c-variable
;define-c-variable (?) ;define-c-variable (?)
) )
(cond-expand (include "c/internal.scm")
(chicken (include-relative "c/internal.scm"))
(else (include "c/internal.scm")))
(cond-expand (cond-expand
(chibi (include "c/primitives/chibi.scm")) (chibi (include "c/primitives/chibi.scm"))
(chicken (export foreign-declare (chicken (export foreign-declare
foreign-safe-lambda foreign-safe-lambda
void) void)
(include-relative "c/primitives/chicken.scm")) (include "c/primitives/chicken.scm"))
;(cyclone (include "c/primitives/cyclone.scm")) ;(cyclone (include "c/primitives/cyclone.scm"))
(gambit (include "c/primitives/gambit.scm")) (gambit (include "c/primitives/gambit.scm"))
(gauche (include "c/primitives/gauche/define-c-procedure.scm")) (gauche (include "c/primitives/gauche/define-c-procedure.scm"))
@ -317,15 +315,10 @@
;(tr7 (include "c/primitives/tr7.scm")) ;(tr7 (include "c/primitives/tr7.scm"))
(ypsilon (export c-function c-callback) (ypsilon (export c-function c-callback)
(include "c/primitives/ypsilon.scm"))) (include "c/primitives/ypsilon.scm")))
(cond-expand (include "c/main.scm")
(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/libc.scm")
(include "c/c-bytevectors.scm") (include "c/c-bytevectors.scm")
(include "c/pointer.scm"))) (include "c/pointer.scm")
;(include "c/array.scm") ;(include "c/array.scm")
;(include "c/struct.scm") ;(include "c/struct.scm")
) )