From ceebc5eface07188a9657cde15760a402376e3fa Mon Sep 17 00:00:00 2001 From: bernardy Date: Fri, 14 Sep 2007 10:46:30 +0000 Subject: [PATCH] Couple of fixes for the "food" example in French --- examples/tutorial/resource-foods/LexFoodsFre.gf | 2 +- lib/resource-1.0/french/MorphoFre.gf | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/tutorial/resource-foods/LexFoodsFre.gf b/examples/tutorial/resource-foods/LexFoodsFre.gf index b83a8ddf9..5e7f72442 100644 --- a/examples/tutorial/resource-foods/LexFoodsFre.gf +++ b/examples/tutorial/resource-foods/LexFoodsFre.gf @@ -6,7 +6,7 @@ instance LexFoodsFre of LexFoods = open SyntaxFre,ParadigmsFre in { pizza_N = mkN "pizza" feminine ; cheese_N = mkN "fromage" masculine ; fish_N = mkN "poisson" ; - fresh_A = mkA "frais" "fraīche" ; + fresh_A = mkA "frais" "fraīche" "frais" "fraīches"; warm_A = mkA "chaud" ; italian_A = mkA "italien" ; expensive_A = mkA "cher" ; diff --git a/lib/resource-1.0/french/MorphoFre.gf b/lib/resource-1.0/french/MorphoFre.gf index f10acb4e5..a27c1ebf4 100644 --- a/lib/resource-1.0/french/MorphoFre.gf +++ b/lib/resource-1.0/french/MorphoFre.gf @@ -116,7 +116,7 @@ oper adjHeureux : Str -> Adj = \heureux -> let {heureu = Predef.tk 1 heureux} in - mkAdj heureux (heureu+"s") (heureu+"se") (heureu+"sement") ; + mkAdj heureux heureux (heureu+"se") (heureu+"sement") ; adjBanal : Str -> Adj = \banal -> let {bana = Predef.tk 1 banal} in