From f946883d67a7d59c41d2632b6fc4100d31a96442 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 8 Sep 2014 17:40:56 -0700 Subject: [PATCH] better processing of directory argument from `raco pollen start` (re: issue #5) --- raco.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/raco.rkt b/raco.rkt index f828131..8934405 100644 --- a/raco.rkt +++ b/raco.rkt @@ -9,7 +9,9 @@ (define-for-syntax first-arg-or-current-dir (with-handlers ([exn:fail? (λ(exn) (current-directory))]) - (path->complete-path (simplify-path (string->path (vector-ref args 1)))))) + ;; incoming path argument is handled as described in + ;; docs for current-directory + (path->complete-path (path->directory-path (simplify-path (cleanse-path (string->path (vector-ref args 1)))))))) (define-for-syntax rest-args (with-handlers ([exn:fail? (λ(exn) #f)])