Skip to content

Instantly share code, notes, and snippets.

@outworlder

outworlder/gambit-ffi-compat.scm

Created June 18, 2010 12:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save outworlder/443585 to your computer and use it in GitHub Desktop.
Save outworlder/443585 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gambit-ffi-compat.scm
(define-foreign-type unsigned-int8 unsigned-byte)
(define-syntax c-lambda
(syntax-rules ()
([_ (arg ...) return-type name] (foreign-lambda return-type name arg ...))))
(define-syntax c-define-type
(syntax-rules ()
([_ name type] (define-foreign-type name type))))
(define-syntax c-declare
(syntax-rules ()
([_ string] (foreign-declare string))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment