diff --git a/private/downloader.rkt b/private/downloader.rkt index 45e5d65..6dcc17d 100644 --- a/private/downloader.rkt +++ b/private/downloader.rkt @@ -12,6 +12,7 @@ ) (provide download-soundlibs + soundlibs-clear-download! soundlibs-version soundlibs-directory soundlibs-available? @@ -128,6 +129,9 @@ (close-input-port in)) d)))) +(define (soundlibs-clear-download!) + (delete-file version-file)) + (define (download-soundlibs) (let ((in (download-port download-url))) (unless (input-port? in)