teachpacks/audio.ss
#lang scheme/base

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

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

(provide play-wav)