ffi.scm

(load-library "scheme")
(scheme-interaction-mode)

(use-modules ((elisp-symbols) #:prefix ev-)
             ((elisp-functions) #:prefix ef-)
             ((elisp-plists) #:prefix ep-))

(ef-message (ef-symbol-name 'cool!))

;; https://www.gnu.org/software/guile/manual/html_node/Dynamic-FFI.html


(define-module (math bessel)
  #:use-module (system foreign)
  #:export (j0))

(define libm (dynamic-link "libm"))

(define j0
  (pointer->procedure double
                      (dynamic-func "j0" libm)
                      (list double)))