From 6a34154b77ac80f89df816ba0062f382d915fb22 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sun, 5 Sep 2021 19:41:40 +0200 Subject: Updated tests --- src/lib/sounds/sounds.ml | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/lib/sounds/sounds.ml') diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index afaf110..58d511b 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -36,6 +36,7 @@ type code = | Consonant_M | Consonant_N + | Consonant_GN | Consonant_L | Consonant_R | Diphtonge of t * t @@ -168,6 +169,11 @@ let j = code = Consonant_J ; mutable_ = false } +let gn = + { none with + code = Consonant_GN + ; nasal = true } + let n = { none with code = Consonant_N @@ -287,6 +293,7 @@ let repr | Consonant_M, _ -> Repr.m | Consonant_N, _ -> Repr.n + | Consonant_GN, _ -> Repr.gn | Consonant_L, _ -> Repr.l | Consonant_R, _ -> Repr.r | Diphtonge (l1, l2), _ -> Repr.diphtongue (_repr l1) (_repr l2) -- cgit v1.2.3