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

Fix bug

Browse Source
This commit is contained in:
Eli Barzilay 2010-11-13 09:39:51 -05:00
parent 885fa11bfe
commit 4d2e0e4486
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/get-libs.rkt
View File

@ -163,11 +163,11 @@
file)])) file)]))
(define (delete-path path) (define (delete-path path)
(if (directory-exists? path) (cond [(directory-exists? path)
(begin (parameterize ([current-directory path]) (parameterize ([current-directory path])
(for-each delete-path (directory-list))) (for-each delete-path (directory-list)))
(delete-directory path)) (delete-directory path)]
(delete-file path))) [(or (file-exists? path) (link-exists? path)) (delete-file path)]))
(define (directory-size dir) (define (directory-size dir)
(parameterize ([current-directory dir]) (parameterize ([current-directory dir])