For the LLVM interface to Scheme I am working on I need to export some constants in C to Scheme.
I was advised to proceed with the following construct:
(define <scheme-name> ((c-lambda () int "__result = <c-name>;")))
Since it is boring to retype the same thing a lot of times I considered making a macro, but I am facing the problem that c-lambda wants a literal string as its third argument. I can make the string I need with string-append, but I have no idea how to build a literal string in a macro.
Here is what I have right now:
(define-macro (c-define-const name c-name) `(define ,name ((c-lambda () int (string-append "___result = " ,c-name ";")))))
If anybody has a better idea on how to do this or a way to fix my macro, I would appreciate.
Arnaud