From c4d78b9453f2f8cf3e136a6960850c5df4dfd40b Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 16 Dec 2020 15:39:52 -0500 Subject: Fix ReadWav_set --- wav.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/wav.bqn b/wav.bqn index 7d655ad..1b2e819 100644 --- a/wav.bqn +++ b/wav.bqn @@ -172,7 +172,7 @@ ReadWav ← { ¯1⊸⊑⍟(⟨o.freq,o.fmt⟩ ≡ 2⊸↑) GetWav 𝕩 } WriteWav ← { 𝕩 o.FBytes EncodeWav(⟨o.freq,o.fmt⟩∾<)⍟(1≥≡) 𝕨 } # Read, setting o.freq and o.fmt as a side effect. -ReadWav_set ← { t←GetWav 𝕩 ⋄ Set ¯1↓t ⋄ ¯1⊑t } +ReadWav_set ← { t←GetWav 𝕩 ⋄ o.Set ¯1↓t ⋄ ¯1⊑t } # Read, resampling to fit current frequency, using options.Resample ReadWav_coerce ← { ((o.freq∾˜0⊸⊑) o.Resample ¯1⊸⊑) GetWav 𝕩 } -- cgit v1.2.3