From 293b0f913f244c01e0e2a8e8eeda92e490015c35 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 24 Aug 2015 22:10:10 -0700 Subject: [PATCH] fix `raco pollen render` w/o arguments --- command.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/command.rkt b/command.rkt index 2f05889..5fc9be5 100644 --- a/command.rkt +++ b/command.rkt @@ -26,7 +26,11 @@ (string->number (vector-ref (current-command-line-arguments) 2)))) (handle-start (path->directory-path (get-first-arg-or-current-dir)) port-arg)] ;; "second" arg is actually third in command line args, so use cddr not cdr - [("render") (handle-render (cons (get-first-arg-or-current-dir) (map very-nice-path (cddr (vector->list (current-command-line-arguments))))))] + [("render") (handle-render (cons (get-first-arg-or-current-dir) + (let ([clargs (vector->list (current-command-line-arguments))]) + (if (>= (length clargs) 3) + (map very-nice-path (cddr clargs)) + null))))] [("version") (handle-version)] [("reset") (handle-reset)] [("clone" "publish") (define rest-args