-

play-test.rkt

@@ -1,8 +1,8 @@
 #lang racket/base
-(require ;"libao/libao.rkt"
-         ;"libflac/flac-decoder.rkt"
+(require "libao/libao.rkt"
+         "libflac/flac-decoder.rkt"
          ;data/queue
-  racket-sound
+  ;racket-sound
          )
 
 (define test-file3 #f)
@@ -37,7 +37,7 @@
     (ao-play ao-h second buffer)
     (let ((second-printer (λ ()
                             (let ((s (inexact->exact (round (ao-at-second ao-h)))))
-                              (when (> s current-seconds)
+                              (unless (= s current-seconds)
                                 (set! current-seconds s)
                                 (let ((minutes (quotient s 60))
                                       (seconds (remainder s 60))
@@ -72,8 +72,14 @@
 (define (flac-meta meta)
   (displayln meta))
 
-(define flac-h
-  (flac-open test-file3 flac-meta flac-play))
+(define (play)
+  (let ((flac-h (flac-open test-file3 flac-meta flac-play)))
+    (flac-read flac-h)
+    (ao-close ao-h)))
+    ;(sleep 1.0)
+    ;(play)))
 
-(flac-read flac-h)
+;(flac-read flac-h)
+
+(play)