summaryrefslogtreecommitdiff
path: root/src/lib/process.ml
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@chimrod.com>2021-08-24 15:04:25 +0200
committerSébastien Dailly <sebastien@chimrod.com>2021-08-24 15:04:25 +0200
commitdf92da631e9a10a099a72ba846f90adf99d180df (patch)
treec56cffa7045795c0cc494512c28fc34a63f800bc /src/lib/process.ml
parent546afdcf2148087f3a90b69c23ea756550f64433 (diff)
Added pre-processing
Diffstat (limited to 'src/lib/process.ml')
-rw-r--r--src/lib/process.ml2
1 files changed, 1 insertions, 1 deletions
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