core: Add the shuffler words but without primitives.

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

diff --git a/extra/openal/alut/alut.factor b/extra/openal/alut/alut.factor
index f4ae603f6857917eed7469e6d20196e6e5d6af4b..97bedc4c4701cb8a63f7ec6154ee984b9ab63079 100755 (executable)
--- a/extra/openal/alut/alut.factor
+++ b/extra/openal/alut/alut.factor
@@ -95,7 +95,7 @@ os macosx? "openal.alut.macosx" "openal.alut.other" ? require
 
 : create-buffer-from-wav ( filename -- buffer )
     gen-buffer dup rot load-wav-file
-    [ alBufferData ] 4 nkeep alutUnloadWAV ;
+    [ alBufferData ] 4keep alutUnloadWAV ;
 
 : check-error ( -- )
     alGetError dup ALUT_ERROR_NO_ERROR = [