better processing of directory argument from `raco pollen start` (re: issue #5)

pull/27/head
Matthew Butterick 10 years ago
parent 5d43602d08
commit f946883d67

@ -9,7 +9,9 @@
(define-for-syntax first-arg-or-current-dir (define-for-syntax first-arg-or-current-dir
(with-handlers ([exn:fail? (λ(exn) (current-directory))]) (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 (define-for-syntax rest-args
(with-handlers ([exn:fail? (λ(exn) #f)]) (with-handlers ([exn:fail? (λ(exn) #f)])

Loading…
Cancel
Save