modernize openal.other

diff --git a/extra/openal/other/other.factor b/extra/openal/other/other.factor
index d0429fb3c3bd46b1c43913d3c6307ef3fd0d2c17..0936c94150862a81f94771005e4dea9a505db1af 100644 (file)
--- a/extra/openal/other/other.factor
+++ b/extra/openal/other/other.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: openal.backend alien.c-types kernel alien alien.syntax
-shuffle combinators.lib ;
+USING: alien.c-types alien.syntax combinators generalizations
+kernel openal.backend ;
 IN: openal.other
 
 LIBRARY: alut
@@ -9,6 +9,6 @@ LIBRARY: alut
 FUNCTION: void alutLoadWAVFile ( ALbyte* fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency, ALboolean* looping ) ;
 
 M: object load-wav-file ( filename -- format data size frequency )
-  0 <int> f <void*> 0 <int> 0 <int>
-  [ 0 <char> alutLoadWAVFile ] 4keep
-  >r >r >r *int r> *void* r> *int r> *int ;
+    0 <int> f <void*> 0 <int> 0 <int>
+    [ 0 <char> alutLoadWAVFile ] 4 nkeep
+    { [ *int ] [ *void* ] [ *int ] [ *int ] } spread ;