updating genstatic.scm with the new C calling convention.

fixes #54 (thanks to Andreas Rottman)
This commit is contained in:
Alex Shinn 2010-12-06 20:36:15 -08:00
parent 2eaf4068e5
commit a7c9e0982a

View file

@ -121,7 +121,7 @@
(define (init-c-lib lib) (define (init-c-lib lib)
(display " ") (display " ")
(display (cdr lib)) (display (cdr lib))
(display "(ctx, env);\n")) (display "(ctx sexp_api_pass(NULL, 1), env);\n"))
(define (main args) (define (main args)
(find-c-libs (if (pair? (cdr args)) (cadr args) "lib")) (find-c-libs (if (pair? (cdr args)) (cadr args) "lib"))