diff --git a/lib/src/spanish/ParadigmsSpa.gf b/lib/src/spanish/ParadigmsSpa.gf index 960c623b1..e618af520 100644 --- a/lib/src/spanish/ParadigmsSpa.gf +++ b/lib/src/spanish/ParadigmsSpa.gf @@ -60,7 +60,10 @@ oper genitive : Prep ; -- preposition "de" and its contractions dative : Prep ; -- preposition "a" and its contractions - mkPrep : Str -> Prep ; -- other preposition + mkPrep : overload { + mkPrep : Str -> Prep ; -- other preposition + mkPrep : Str -> Prep -> Prep ; -- compound prepositions, e.g. "antes de", made as mkPrep "antes" genitive + } ; --2 Nouns @@ -318,7 +321,11 @@ oper accusative = complAcc ** {lock_Prep = <>} ; genitive = complGen ** {lock_Prep = <>} ; dative = complDat ** {lock_Prep = <>} ; - mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ; + + mkPrep = overload { + mkPrep : Str -> Prep = \p -> {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ; + mkPrep : Str -> Prep -> Prep = \p,c -> {s = p ; c = c.c ; isDir = False ; lock_Prep = <>} + } ; mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ;