specialized-arrays: performed some cleanup.

[factor.git] / extra / openal / openal.factor

diff --git a/extra/openal/openal.factor b/extra/openal/openal.factor
index 5ce7a5b9909697bfb2ee23945a57247c8e498cb0..32351fde783111203dce613520af963444b26890 100755 (executable)
--- a/extra/openal/openal.factor
+++ b/extra/openal/openal.factor
@@ -248,15 +248,15 @@ DESTRUCTOR: alcCloseDevice*
 DESTRUCTOR: alcDestroyContext
 
 : gen-sources ( size -- seq )
-    dup <uint-array> [ alGenSources ] keep ;
+    dup uint <c-array> [ alGenSources ] keep ;
 
 : gen-buffers ( size -- seq )
-    dup <uint-array> [ alGenBuffers ] keep ;
+    dup uint <c-array> [ alGenBuffers ] keep ;
 
 : gen-buffer ( -- buffer ) 1 gen-buffers first ;
 
 : queue-buffers ( source buffers -- )
-    [ length ] [ >uint-array ] bi alSourceQueueBuffers ;
+    [ length ] [ uint >c-array ] bi alSourceQueueBuffers ;
 
 : queue-buffer ( source buffer -- )
     1array queue-buffers ;