svn: r5803

original commit: 2ac0833f10b88b1a75428b169132ae211a050df6
This commit is contained in:
Matthew Flatt 2007-03-21 03:05:56 +00:00
parent 3b851321d0
commit 6fa512d6af

View File

@ -123,7 +123,7 @@
(unless (file-exists? f)
(error 'play-sound "file not found: ~e" f))
((if (eq? (system-type) 'unix) (force unix-play-command) wx:play-sound)
f async))
f async?))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Timers: