document.scm 308 B

12345678910111213
  1. (library (hello document)
  2. (export document-body
  3. make-text-node)
  4. (import (scheme base)
  5. (hoot ffi))
  6. (define-foreign document-body
  7. "document" "body"
  8. -> (ref null extern))
  9. (define-foreign make-text-node
  10. "document" "createTextNode"
  11. (ref string) -> (ref null extern)))