1(module sound mzscheme
2  (require (lib "mred.ss" "mred"))
3
4  (define (play-sound-file file)
5    (play-sound file #f)
6    (void))
7
8  (define (background-play-sound-file file)
9    (play-sound file #t)
10    (void))
11
12  (provide play-sound-file
13           background-play-sound-file))
14