teachpacks/audio.ss
#lang scheme/base

(require scheme/gui/base "../lang/dracula.ss" "../lang/check.ss")

(begin-below
 (defun play-wav (file async)
   (play-sound file (if async #t #f))))

(provide play-wav)