core: Add the shuffler words but without primitives.

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

diff --git a/extra/openal/alut/macosx/macosx.factor b/extra/openal/alut/macosx/macosx.factor
index e0cc7c5a03e9ed1bdf8c8e3e24cb3c53ccbc5f96..c10c5a2281ce381b9b05ae5d5cc154b5da2d85e2 100755 (executable)
--- a/extra/openal/alut/macosx/macosx.factor
+++ b/extra/openal/alut/macosx/macosx.factor
@@ -10,5 +10,5 @@ FUNCTION: void alutLoadWAVFile ( c-string fileName, ALenum* format, void** data,
 
 M: macosx load-wav-file ( path -- format data size frequency )
     0 int <ref> f void* <ref> 0 int <ref> 0 int <ref>
-    [ alutLoadWAVFile ] 4 nkeep
+    [ alutLoadWAVFile ] 4keep
     [ [ [ int deref ] dip void* deref ] dip int deref ] dip int deref ;