diff --git a/private/downloader.rkt b/private/downloader.rkt index 855f867..325aef6 100644 --- a/private/downloader.rkt +++ b/private/downloader.rkt @@ -9,6 +9,7 @@ racket/system racket/string file/unzip + define-return ) (provide download-soundlibs @@ -91,7 +92,9 @@ ;; Provided functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define (soundlibs-available?) +(define/return (soundlibs-available?) + (unless (eq? (system-type 'os) 'windows) ; We only need to download libraries for windows. + (return #t)) (if (file-exists? version-file) (with-handlers ([exn:fail? (λ (e) #f)]) (let ((v (file->value version-file)))