factor: trim using lists

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

diff --git a/extra/openal/alut/other/other.factor b/extra/openal/alut/other/other.factor
old mode 100755 (executable)
new mode 100644 (file)
index 8b1cbd0..da133d9
--- a/extra/openal/alut/other/other.factor
+++ b/extra/openal/alut/other/other.factor
@@ -1,14 +1,17 @@
 ! Copyright (C) 2007 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax combinators generalizations
+USING: alien.c-types alien.data alien.syntax combinators
 kernel openal openal.alut.backend ;
 IN: openal.alut.other
 
 LIBRARY: alut
 
-FUNCTION: void alutLoadWAVFile ( c-string fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency, ALboolean* looping ) ;
+FUNCTION: void alutLoadWAVFile ( c-string 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 ] 4 nkeep
-    { [ *int ] [ *void* ] [ *int ] [ *int ] } spread ;
+    0 int <ref>
+    f void* <ref>
+    0 int <ref>
+    0 int <ref>
+    [ 0 char <ref> alutLoadWAVFile ] 4keep
+    { [ int deref ] [ void* deref ] [ int deref ] [ int deref ] } spread ;