mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 09:52:55 -06:00
Couple of fixes for the "food" example in French
This commit is contained in:
@@ -6,7 +6,7 @@ instance LexFoodsFre of LexFoods = open SyntaxFre,ParadigmsFre in {
|
|||||||
pizza_N = mkN "pizza" feminine ;
|
pizza_N = mkN "pizza" feminine ;
|
||||||
cheese_N = mkN "fromage" masculine ;
|
cheese_N = mkN "fromage" masculine ;
|
||||||
fish_N = mkN "poisson" ;
|
fish_N = mkN "poisson" ;
|
||||||
fresh_A = mkA "frais" "fraîche" ;
|
fresh_A = mkA "frais" "fraîche" "frais" "fraîches";
|
||||||
warm_A = mkA "chaud" ;
|
warm_A = mkA "chaud" ;
|
||||||
italian_A = mkA "italien" ;
|
italian_A = mkA "italien" ;
|
||||||
expensive_A = mkA "cher" ;
|
expensive_A = mkA "cher" ;
|
||||||
|
|||||||
@@ -116,7 +116,7 @@ oper
|
|||||||
|
|
||||||
adjHeureux : Str -> Adj = \heureux ->
|
adjHeureux : Str -> Adj = \heureux ->
|
||||||
let {heureu = Predef.tk 1 heureux} in
|
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 ->
|
adjBanal : Str -> Adj = \banal ->
|
||||||
let {bana = Predef.tk 1 banal} in
|
let {bana = Predef.tk 1 banal} in
|
||||||
|
|||||||
Reference in New Issue
Block a user