From df92da631e9a10a099a72ba846f90adf99d180df Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 24 Aug 2021 15:04:25 +0200
Subject: Added pre-processing

---
 src/lib/process.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/lib/process.ml')

diff --git a/src/lib/process.ml b/src/lib/process.ml
index 9bfd45d..10b2945 100644
--- a/src/lib/process.ml
+++ b/src/lib/process.ml
@@ -56,7 +56,7 @@ module M(T:Sounds.T) = struct
       match c with
       | None -> init
       | Some op -> match op.opening, op.ending with
-        | hd::[], None when hd = T.s () ->
+        | hd::[], None when T.code hd = T.SZ ->
           let c = Some { op with opening = [T.z ()] } in
           (((v1, v2), c) , ending)
         | _ -> init
-- 
cgit v1.2.3