A simple example will show the problem I'm running into - is there any workaround?
rafimac:/scheme raffaelc$ cat test.scm (c-declare #<<c-declare-end double test(double afloat, double anotherfloat) { return (afloat + anotherfloat); } c-declare-end )
(define test (c-lambda (double double) double "test"))rafimac:/scheme raffaelc$ rafimac:/scheme raffaelc$ gsc Gambit Version 4.0 beta 20
(compile-file "/scheme/test.scm")
#t
(load "/scheme/test")
"/scheme/test.o1"
(test 2.0 2.0)
4.
(exit)
rafimac:/scheme raffaelc$ gsc Gambit Version 4.0 beta 20
(load "~~/syntax-case")
"/usr/local/Gambit-C/4.0b20/syntax-case.scm"
(compile-file "/scheme/test.scm")
*** ERROR IN "/scheme/test.scm"@1.1 -- Argument to 'c-declare' must be a string #f
regards,
Ralph
Raffael Cavallaro, Ph.D. raffaelcavallaro@mac.com