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