suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed sound for Linux

Browse Source 
original commit: 2f76463a68494d393921e07432d85ebdd3b89d16
This commit is contained in:
scheme 2001-01-25 22:29:47 +00:00
parent 1a9c52533a
commit a0769c4947
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mred/wrap/mred.ss
View File

@ -5163,15 +5163,15 @@
(begin
(unless (string? f)
(raise-type-error 'play-sound "string" f))
(let* ([subpath (system-directory-subpath)]
(let* ([subpath (system-library-subpath)]
[make-pattern (lambda (s) (string-append ".*" s ".*"))]
[b
(box
(cond
[(regexp-match (make-pattern "linux"))
[(regexp-match (make-pattern "linux") subpath)
; use play interface to sox
"play ~s"]
[(regexp-match (make-pattern "solaris"))
[(regexp-match (make-pattern "solaris") subpath)
"audioplay ~s"]
[else
(raise-mismatch-error