Skip to content

Instantly share code, notes, and snippets.

@muspellsson

muspellsson/define-c-constant.scm

Last active August 29, 2015 14:05
Show Gist options
  • Save muspellsson/990da7b8c736496591f5 to your computer and use it in GitHub Desktop.
Save muspellsson/990da7b8c736496591f5 to your computer and use it in GitHub Desktop.
Download ZIP
Wraps C constant value in Gambit Scheme FFI
Raw
define-c-constant.scm
(define-macro (define-c-constant name #!optional (type 'int) (new-name name))
`(define ,new-name
`,((c-lambda
() ,type
,(string-append "___result = " (symbol->string name) ";")))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment