strigoform/image.scm


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)))