mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
Fixed regular Adj ending in 'r' in Cat
This commit is contained in:
@@ -91,7 +91,7 @@ lin
|
||||
girl_N = regFN "noia" ;
|
||||
glove_N = regMN "guant" ;
|
||||
gold_N = regMN "or" ;
|
||||
good_A = mkADeg (mkA "bó" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
|
||||
good_A = mkADeg (mkA "bo" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
|
||||
go_V = (verbV (anar_4 "anar")) ;
|
||||
green_A = regADeg "verd" ;
|
||||
harbour_N = regMN "port" ;
|
||||
|
||||
@@ -120,6 +120,7 @@ oper
|
||||
mkAdjReg : Str -> Adj = \prim ->
|
||||
case last prim of {
|
||||
"e"|"u"|"o" => adjFondo prim ;
|
||||
"l"|"r" => adjFidel prim ;
|
||||
_ => adjPrim prim
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user