(module audio mzscheme
  (require (lib "mred.ss" "mred")
           (file "audio-glue.scm")
           (lib "unit.ss"))
  (provide audio@ audio^)
  
  (define-signature audio^ [play-wav])
  (define-unit audio@
    (import)
    (export audio^)
    (define (play-wav file async) (if (playx file async) 't '()))))