only downloads for windows are needed
This commit is contained in:
@@ -9,6 +9,7 @@
|
|||||||
racket/system
|
racket/system
|
||||||
racket/string
|
racket/string
|
||||||
file/unzip
|
file/unzip
|
||||||
|
define-return
|
||||||
)
|
)
|
||||||
|
|
||||||
(provide download-soundlibs
|
(provide download-soundlibs
|
||||||
@@ -91,7 +92,9 @@
|
|||||||
;; Provided functions
|
;; 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)
|
(if (file-exists? version-file)
|
||||||
(with-handlers ([exn:fail? (λ (e) #f)])
|
(with-handlers ([exn:fail? (λ (e) #f)])
|
||||||
(let ((v (file->value version-file)))
|
(let ((v (file->value version-file)))
|
||||||
|
|||||||
Reference in New Issue
Block a user