17 lines
479 B
Scheme
17 lines
479 B
Scheme
(define-module retropikzel.pffi.gauche
|
|
(export spigot-calculate-pi
|
|
spigot-calculate-e))
|
|
(select-module retropikzel.pffi.gauche)
|
|
|
|
(dynamic-load "retropikzel-pffi-gauche")
|
|
;(define-module retropikzel.pffi.gauche (export pffi-foo))
|
|
|
|
;(dynamic-load "retropikzel/pffi/pffi-gauche" :init-function "Scm__Init_pffi_2dgauche")
|
|
;(select-module pffi-gauche)
|
|
|
|
;(pffi-foo 10)
|
|
|
|
#;(define size-of-type
|
|
(lambda (type)
|
|
(cond ((equal? type 'int8) 1))))
|