From 6b8c5bd1015ba67208a448132a9ed1d3252644b6 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 20 Jan 2010 11:48:48 -0800
Subject: [PATCH] tweak audio.engine generator interface

---
 extra/audio/engine/engine.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/audio/engine/engine.factor b/extra/audio/engine/engine.factor
index 5bf8bd9282..28b4900c85 100644
--- a/extra/audio/engine/engine.factor
+++ b/extra/audio/engine/engine.factor
@@ -56,7 +56,7 @@ M: audio-listener audio-gain gain>> ; inline
 M: audio-listener audio-velocity velocity>> ; inline
 M: audio-listener audio-orientation orientation>> ; inline
 
-GENERIC# generate-audio 1 ( generator buffer-size -- c-ptr )
+GENERIC# generate-audio 1 ( generator buffer-size -- c-ptr size )
 GENERIC: generator-audio-format ( generator -- channels sample-bits sample-rate )
 
 TUPLE: audio-engine < disposable
@@ -152,10 +152,12 @@ ERROR: audio-context-not-available device-name ;
     audio-clip al-source>> :> al-source
     audio-clip generator>> :> generator
     audio-clip buffer-size>> :> buffer-size
-    generator buffer-size generate-audio :> data
+    generator buffer-size generate-audio :> ( data size )
 
-    al-buffer audio-clip openal-format data buffer-size audio-clip sample-rate>> alBufferData
-    al-source 1 al-buffer c:<uint> alSourceQueueBuffers ;
+    data [
+        al-buffer audio-clip openal-format data size audio-clip sample-rate>> alBufferData
+        al-source 1 al-buffer c:<uint> alSourceQueueBuffers
+    ] when ;
 
 : update-listener ( audio-engine -- )
     listener>> {