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

fixed directory location bug

Browse Source
This commit is contained in:
Spencer Florence 2014-12-28 13:56:36 -06:00
parent 826eb253f1
commit c928213918
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
raco.rkt
View File

@ -7,6 +7,7 @@
(command-line (command-line
#:program (short-program+command-name) #:program (short-program+command-name)
#:args files files))) #:args files files)))
(printf "testing ~s\n" files)
(apply test-files! files)) (apply test-files! files))
;; TODO allow for arbitrary extensions ;; TODO allow for arbitrary extensions
@ -16,13 +17,14 @@
(for/list ([f files]) (for/list ([f files])
(if (not (directory-exists? f)) (if (not (directory-exists? f))
f f
(expand-directory f))))) (parameterize ([current-directory (build-path (current-directory) f)])
(expand-directory))))))
(define (expand-directory d) (define (expand-directory)
(for/list ([p (directory-list d)]) (for/list ([p (directory-list)])
(cond [(directory-exists? p) (cond [(directory-exists? p)
(parameterize ([current-directory (build-path (current-directory) p)]) (parameterize ([current-directory (build-path (current-directory) p)])
(expand-directory "."))] (expand-directory))]
[(ormap (lambda (r) (regexp-match r (path->string p))) extensions) [(ormap (lambda (r) (regexp-match r (path->string p))) extensions)
(path->string (build-path (current-directory) p))] (path->string (build-path (current-directory) p))]
[else (displayln " is bad file") null]))) [else null])))