From 5cf5175aebb9f7ae6c03e444b88396ba84048dc4 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 11 Feb 2012 16:00:18 -0500 Subject: [PATCH] Improve `get-libs' error message. --- src/get-libs.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/get-libs.rkt b/src/get-libs.rkt index 5884edde32..9d09d97bf4 100644 --- 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)))))