|
(declare (usual-integrations))
|
|
(load-option 'ffi)
|
|
|
|
;(define lib (dld-load-file "mit-scheme-foreign-c-shim.so"))
|
|
(C-include "mit-scheme-foreign-c")
|
|
|
|
(define (hello)
|
|
(puts "Hello from puts")
|
|
;(display "Not from puts")
|
|
(newline)
|
|
)
|
|
;(C-call "puts" "Hello world")
|