diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-28 20:01:54 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-28 20:01:54 +0200 |
| commit | 3b8c136ebdba7f4b5b4d6baad08d0a75c3b2dc86 (patch) | |
| tree | 62341b36574a0ded0d4fe38ea9ec16036f27dfd4 /src/lib/modifiers/vocalize.ml | |
| parent | 26faec7a69051f639b50c8e8741f0823c6be52a2 (diff) | |
Update
Diffstat (limited to 'src/lib/modifiers/vocalize.ml')
| -rw-r--r-- | src/lib/modifiers/vocalize.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/lib/modifiers/vocalize.ml b/src/lib/modifiers/vocalize.ml index 86a0502..6857718 100644 --- a/src/lib/modifiers/vocalize.ml +++ b/src/lib/modifiers/vocalize.ml @@ -13,8 +13,7 @@ let process not trnasform the S into Z *) let is_voyel = T.is_voyel v1 && T.is_voyel v2 in match is_voyel, op.Sig.opening, op.Sig.ending with - | true, hd::[], None when T.code hd = T.SZ -> - let c = Some { op with opening = [T.z ()] } in + | true, hd::[], None when hd = T.sz -> + let c = Some { op with opening = [T.z] } in (((v1, v2), c) , ending) | _ -> init - |