teachpacks/audio-glue.ss
(module audio-glue mzscheme
  (require (lib "mred.ss" "mred"))
  #;(require (lib "constants.ss" "acl2" "private"))
  (provide playx)
  (define (playx file async)
    (if (play-sound file (not (eq? async '())))
        't
        '())))