teachpacks/audio.ss
#lang scheme/base

(require scheme/gui/base "../lang/dracula.ss" "../private/define-below.ss")

(begin-below

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

 )

(provide play-wav)