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

fix bad refactoring

Browse Source
This commit is contained in:
Matthew Flatt 2012-05-11 23:00:03 -06:00
parent 9412ea0707
commit 2f9a0f4b94
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/setup/setup-unit.rkt
View File

@ -543,8 +543,8 @@
(when (and (pair? deps) (list? deps)) (when (and (pair? deps) (list? deps))
(for ([s (in-list (cddr deps))]) (for ([s (in-list (cddr deps))])
(unless (and (pair? s) (eq? 'ext (car s))) (unless (and (pair? s) (eq? 'ext (car s)))
(define s (main-collects-relative->path s)) (define new-s (main-collects-relative->path s))
(when (path-string? s) (hash-set! dependencies s #t)))))) (when (path-string? new-s) (hash-set! dependencies new-s #t))))))
(delete-file path)) (delete-file path))
(define (delete-files-in-directory path printout dependencies) (define (delete-files-in-directory path printout dependencies)