Improve `get-libs' error message.

2012-02-11 16:00:18 -05:00 · 2012-02-11 16:00:18 -05:00 · 5cf5175aeb
commit 5cf5175aeb
parent af62391c8c
1 changed files with 3 additions and 1 deletions
--- a/src/get-libs.rkt
+++ b/src/get-libs.rkt
@ -121,7 +121,9 @@
  (define-values [package dest-dir]
    (let-values ([(args) (vector->list (current-command-line-arguments))])
      (let-values
-          ([(package) (if (null? args) (error 'get-libs) (car args))])
+          ([(package) (if (null? args)
+			  (error 'get-libs "missing \'package\' command-line argument")
+			  (car args))])
        (let-values ([(dd) 
                      (if (null? (cdr args)) (current-directory) (cadr args))])
          (values (string->symbol package) dd)))))