diff options
Diffstat (limited to 'chickadee/audio.scm')
-rw-r--r-- | chickadee/audio.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/chickadee/audio.scm b/chickadee/audio.scm index aa56dac..61d033b 100644 --- a/chickadee/audio.scm +++ b/chickadee/audio.scm @@ -29,6 +29,7 @@ #:use-module (chickadee audio wav) #:use-module (chickadee math) #:use-module (chickadee math vector) + #:use-module (chickadee utils) #:use-module (ice-9 format) #:use-module (ice-9 match) #:use-module (rnrs bytevectors) @@ -280,10 +281,8 @@ ;; keep OpenAL busy until the next sound system update. ;; update-audio-system will add new buffers as they are unqueued ;; later. - (let loop ((i 0)) - (when (< i 8) ; TODO: allow variable number of buffers? - (source-buffer/stream source) - (loop (+ i 1))))) + (for-range ((i 8)) ; TODO: allow variable number of buffers? + (source-buffer/stream source))) (define (remove-streaming-source sound-system source) ;; Flush buffers. |