diff --git a/examples/bronzeage/SwadeshFin.gf b/examples/bronzeage/SwadeshFin.gf index e85bee80a..fa8615ccb 100644 --- a/examples/bronzeage/SwadeshFin.gf +++ b/examples/bronzeage/SwadeshFin.gf @@ -41,8 +41,14 @@ concrete SwadeshFin of Swadesh = CatFin few_Det = mkDet Sg (regN "harva") ; other_Det = mkDet Sg (regN "muu") ; --- left_Ord = mkA (regN "vasen") ; --- right_Ord = mkA (regN "oikea") ; + left_Ord = mkOrd (regN "vasen") ; + right_Ord = mkOrd (regN "oikea") ; + + oper + mkOrd : N -> Ord ; + mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ; + + lin -- Adverbs diff --git a/examples/bronzeage/SwadeshFre.gf b/examples/bronzeage/SwadeshFre.gf index 134266a22..8a4c0b787 100644 --- a/examples/bronzeage/SwadeshFre.gf +++ b/examples/bronzeage/SwadeshFre.gf @@ -37,8 +37,14 @@ concrete SwadeshFre of Swadesh = CatFre n = Pl } ; --- left_Ord = regA "gauche" ; --- right_Ord = regA "droite" ; + left_Ord = mkOrd (regA "gauche") ; + right_Ord = mkOrd (regA "droite") ; + + oper + mkOrd : A -> Ord ; + mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ; + + lin -- Adverbs diff --git a/examples/bronzeage/SwadeshIta.gf b/examples/bronzeage/SwadeshIta.gf index f3afd9243..d80d5e594 100644 --- a/examples/bronzeage/SwadeshIta.gf +++ b/examples/bronzeage/SwadeshIta.gf @@ -36,8 +36,14 @@ concrete SwadeshIta of Swadesh = CatIta n = Pl } ; --- left_Ord = regA "sinistro" ; --- right_Ord = regA "destro" ; + left_Ord = mkOrd (regA "sinistro") ; + right_Ord = mkOrd (regA "destro") ; + + oper + mkOrd : A -> Ord ; + mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ; + + lin -- Adverbs