remove debug prints

diff --git a/extra/audio/engine/engine.factor b/extra/audio/engine/engine.factor
index 91acd7040176d3d80354a8ba138de2ba10820236..3bc81cd6816cc761d4bf3ec9b5dbe6692c061164 100644 (file)
--- a/extra/audio/engine/engine.factor
+++ b/extra/audio/engine/engine.factor
@@ -183,7 +183,6 @@ M: static-audio-clip (update-audio-clip)
     drop ;
 
 M:: streaming-audio-clip (update-audio-clip) ( audio-clip -- )
-    "blip" P drop
     audio-clip al-source>> :> al-source
     0 c:<uint> :> buffer
     al-source AL_BUFFERS_PROCESSED get-source-param [

diff --git a/extra/audio/engine/test/test.factor b/extra/audio/engine/test/test.factor
index 8f3a94050ab6ea541a5ce93efe11928678306436..46c45f84b1fe10e63dc70309079ca7c6cde204d4 100644 (file)
--- a/extra/audio/engine/test/test.factor
+++ b/extra/audio/engine/test/test.factor
@@ -11,7 +11,7 @@ TUPLE: noise-generator ;
 M: noise-generator generator-audio-format
     drop 1 16 8000 ;
 M: noise-generator generate-audio
-    nip P [ -1 shift [ -4096 4096 [a,b] random ] short-array{ } replicate-as ] keep ;
+    nip [ -1 shift [ -4096 4096 [a,b] random ] short-array{ } replicate-as ] keep ;
 
 :: audio-engine-test ( -- )
     "vocab:audio/engine/test/loop.aiff" read-audio :> loop-sound