Fix sign handling on integer wave file read

1 files changed, 2 insertions, 1 deletions

diff --git a/wav.bqn b/wav.bqn
index 5ac83aa..b35362f 100644
--- a/wav.bqn
+++ b/wav.bqn
@@ -66,7 +66,8 @@ _audioConvert ← {
   _withInv_ ← {F _𝕣_ G: {𝕊:F𝕩 ; 𝕊⁼:G𝕩}}
   # Convert 𝕗-byte sequences to ints
   _int ← {
-    b ← 256 ⋄ (+⟜(b⊸×)˝∘⍉⌊‿𝕗⥊⊢) _withInv_ (⥊∘⍉∘>b|⌊∘÷⟜b⍟(↕𝕗))
+    b ← 256
+    (+⟜(b⊸×)˝˜⟜(-(b÷2)≤¯1⊸⊏)·⍉⌊‿𝕗⥊⊢) _withInv_ (⥊∘⍉∘>b|⌊∘÷⟜b⍟(↕𝕗))
   }
   # Convert int to float
   _float ← {e‿m‿b←𝕗  # exponent and mantissa length in bits; bias