1
0
forked from GitHub/gf-core

Couple of fixes for the "food" example in French

This commit is contained in:
bernardy
2007-09-14 10:46:30 +00:00
parent ed6062f50d
commit ceebc5efac
2 changed files with 2 additions and 2 deletions

View File

@@ -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" ;

View File

@@ -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