diff options
| -rw-r--r-- | src/lib/repr/tengwar.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lib/repr/tengwar.ml b/src/lib/repr/tengwar.ml index e198964..d529016 100644 --- a/src/lib/repr/tengwar.ml +++ b/src/lib/repr/tengwar.ml @@ -463,6 +463,11 @@ let fold _fold (Some {empty_glyph with tehta_below = Some v}) tl + | Some ({ tehta_below = Some _ ; _} as t), Consonant c -> + repr_glyph t buff; + _fold + (Some {empty_glyph with tengwa = Some c}) + tl | Some t, Voyel ({position = `Above; _} as v) -> repr_glyph t buff; _fold |