only downloads for windows are needed
This commit is contained in:
@@ -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)))
|
||||
|
||||
Reference in New Issue
Block a user