From 21bf7aa5a9da28f31d8e81aa5b24a04cafcf6494 Mon Sep 17 00:00:00 2001 From: Aarne Ranta Date: Mon, 4 Sep 2017 11:08:40 +0200 Subject: [PATCH] added a case for compN in ParadigmsSpa.mkN --- src/spanish/ParadigmsSpa.gf | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/spanish/ParadigmsSpa.gf b/src/spanish/ParadigmsSpa.gf index a3cc8d602..59ed81627 100644 --- a/src/spanish/ParadigmsSpa.gf +++ b/src/spanish/ParadigmsSpa.gf @@ -86,7 +86,9 @@ oper -- The worst case has two forms (singular + plural) and the gender. - mkN : (baston,bastones : Str) -> Gender -> N -- worst case + mkN : (baston,bastones : Str) -> Gender -> N ; -- worst case + + mkN : N -> Str -> N ; -- compound, e.g. "número" + "de teléfono" } ; @@ -476,7 +478,8 @@ oper mkN = overload { mkN : (luz : Str) -> N = regN ; mkN : Str -> Gender -> N = \s,g -> {s = (regN s).s ; g = g ; lock_N = <>}; - mkN : (baston,bastones : Str) -> Gender -> N = mk2N + mkN : (baston,bastones : Str) -> Gender -> N = mk2N ; + mkN : N -> Str -> N = compN ; } ; regN : Str -> N ; mk2N : (baston,bastones : Str) -> Gender -> N ;