make openal.example load, it's still broken..

extra/openal/example/example.factor

@@ -1,34 +1,33 @@
 ! Copyright (C) 2007 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
-!
+USING: calendar kernel openal sequences threads ;
 IN: openal.example
-USING: openal kernel alien threads sequences calendar ;
 
 : play-hello ( -- )
-  init-openal
-  1 gen-sources
-  first dup AL_BUFFER  alutCreateBufferHelloWorld set-source-param
-  source-play
-  1000 milliseconds sleep ;
+    init-openal
+    1 gen-sources
+    first dup AL_BUFFER  alutCreateBufferHelloWorld set-source-param
+    source-play
+    1000 milliseconds sleep ;
   
 : (play-file) ( source -- )
-  100 milliseconds sleep
-  dup source-playing? [ (play-file) ] [ drop ] if ;
+    100 milliseconds sleep
+    dup source-playing? [ (play-file) ] [ drop ] if ;
 
 : play-file ( filename -- )
-  init-openal
-  create-buffer-from-file 
-  1 gen-sources
-  first dup >r AL_BUFFER rot set-source-param r>
-  dup source-play
-  check-error
-  (play-file) ;
+    init-openal
+    create-buffer-from-file 
+    1 gen-sources
+    first dup [ AL_BUFFER rot set-source-param ] dip
+    dup source-play
+    check-error
+    (play-file) ;
 
 : play-wav ( filename -- )
-  init-openal
-  create-buffer-from-wav 
-  1 gen-sources
-  first dup >r AL_BUFFER rot set-source-param r>
-  dup source-play
-  check-error
-  (play-file) ;
+    init-openal
+    create-buffer-from-wav 
+    1 gen-sources
+    first dup [ AL_BUFFER rot set-source-param ] dip
+    dup source-play
+    check-error
+    (play-file) ;