(use al alc openal matchable srfi-18 extras)

;; this code does no error checking

(define device (alc:OpenDevice #f))
(define context (alc:CreateContext device #f))

(alc:MakeContextCurrent context)

(define buf1 (openal:load-buffer "example.wav"))
(define source1 (openal:make-source buf1))

(al:Sourcei source1 al:LOOPING 1)
(al:SourcePlay source1)

(match (command-line-arguments)
  (("openal" _)			; chicken-install -test
   (thread-start!
    (lambda ()
      (thread-sleep! 5)
      (exit))))
  (_ (print "press RETURN to continue.")
     (read-line)))

(alc:MakeContextCurrent #f)
(alc:DestroyContext context)
(alc:CloseDevice device)