suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improve `get-libs' error message.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2012-02-11 16:00:18 -05:00
parent af62391c8c
commit 5cf5175aeb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/get-libs.rkt
View File

@ -121,7 +121,9 @@
(define-values [package dest-dir] (define-values [package dest-dir]
(let-values ([(args) (vector->list (current-command-line-arguments))]) (let-values ([(args) (vector->list (current-command-line-arguments))])
(let-values (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) (let-values ([(dd)
(if (null? (cdr args)) (current-directory) (cadr args))]) (if (null? (cdr args)) (current-directory) (cadr args))])
(values (string->symbol package) dd))))) (values (string->symbol package) dd)))))