ffi.scm

(require scheme/foreign)
(unsafe!)

(define strlen_t
  (_fun (s) :: (s : _string) -> _int))

(define stdlib (ffi-lib #f))

(define strlen
  (get-ffi-obj "strlen" stdlib strlen_t
               (lambda () (error 'stdlib "No strlen!"))))

(write-string (format "~a\n" (strlen "foo")))