diff --git a/extra/audio/engine/engine.factor b/extra/audio/engine/engine.factor index 91acd70401..3bc81cd681 100644 --- 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: :> 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 8f3a94050a..46c45f84b1 100644 --- 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