fixing case when no command-line args are given

This commit is contained in:
Alex Shinn 2011-04-17 20:36:43 +09:00
parent 6b8991d0a1
commit f4b5815bf6

View file

@ -124,7 +124,7 @@
(display "(ctx sexp_api_pass(NULL, 1), env);\n"))
(define (main args)
(find-c-libs (if (pair? (cdr args)) (cadr args) "lib"))
(find-c-libs (if (and (pair? args) (pair? (cdr args))) (cadr args) "lib"))
(newline)
(for-each include-c-lib c-libs)
(newline)