From 93673448e46f64e63f071c0be5afbd7037d43bee Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Tue, 16 Jan 2024 15:19:59 +0100 Subject: [PATCH] more cases where IFrac introduces additional dots --- src/basque/NumeralEus.gf | 2 +- src/estonian/NumeralEst.gf | 2 +- src/greek/NumeralGre.gf | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/basque/NumeralEus.gf b/src/basque/NumeralEus.gf index 69d6cb73a..4cb1c5fb2 100644 --- a/src/basque/NumeralEus.gf +++ b/src/basque/NumeralEus.gf @@ -123,7 +123,7 @@ lin IFrac d i = { if_then_Str d.hasDot BIND (BIND++"."++BIND) ++ i.s ! co ; n = Pl ; - hasDot=False + hasDot=True } ; } diff --git a/src/estonian/NumeralEst.gf b/src/estonian/NumeralEst.gf index 712f5f123..0fb7dd316 100644 --- a/src/estonian/NumeralEst.gf +++ b/src/estonian/NumeralEst.gf @@ -157,7 +157,7 @@ oper if_then_Str d.hasDot BIND (BIND++"."++BIND) ++ i.s ! o ; n = Pl ; - hasDot=False + hasDot=True } ; oper diff --git a/src/greek/NumeralGre.gf b/src/greek/NumeralGre.gf index 1c3eddd1d..15f4da147 100644 --- a/src/greek/NumeralGre.gf +++ b/src/greek/NumeralGre.gf @@ -302,7 +302,7 @@ Xilias : CardOrd -> (CardOrd => Str) -> Number -> Str = \co,d,n -> if_then_Str d.hasDot BIND (BIND++"."++BIND) ++ i.s ! o ; n = Pl ; - hasDot=False + hasDot=True } ; oper