From f4b5815bf647ce63cc9293eaf1180dc82a29cdb0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 17 Apr 2011 20:36:43 +0900 Subject: [PATCH] fixing case when no command-line args are given --- tools/chibi-genstatic | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/chibi-genstatic b/tools/chibi-genstatic index abe7f13f..0fcb7b5e 100755 --- a/tools/chibi-genstatic +++ b/tools/chibi-genstatic @@ -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)