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/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)))