#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)