only downloads for windows are needed

This commit is contained in:
2026-05-11 12:04:41 +02:00
parent 29cf56a6d2
commit f8c091946f
+4 -1
View File
@@ -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)))