18 lines
496 B
Scheme
18 lines
496 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme file)
|
|
(scheme eval)
|
|
(scheme process-context)
|
|
(cyclone foreign))
|
|
|
|
|
|
(define-syntax pffi-shared-object-load
|
|
(er-macro-transformer
|
|
(lambda (expr rename compare)
|
|
(let* ((headers (cdr (car (cdr expr)))))
|
|
`(begin
|
|
,@ (map
|
|
(lambda (header)
|
|
`(include-c-header ,(string-append "<" header ">")))
|
|
headers))))))
|