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