1 2 3 4 5 6 7 8
(library (strigoform image) (export load-image) (import (scheme base) (hoot ffi)) (define-foreign load-image "image" "new" (ref string) -> (ref null extern)))