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

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