mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
"Simplified regA for Cat"
This commit is contained in:
@@ -119,8 +119,8 @@ oper
|
|||||||
|
|
||||||
mkAdjReg : Str -> Adj = \prim ->
|
mkAdjReg : Str -> Adj = \prim ->
|
||||||
case prim of {
|
case prim of {
|
||||||
_ + "e" + ("r"|"l") => adjPrim prim ;
|
-- _ + "e" + ("r"|"l") => adjPrim prim ;
|
||||||
_ + ("r"|"l") => adjFidel prim ;
|
_ + "l" => adjFidel prim ;
|
||||||
_ + ("e"|"u"|"o") => adjFondo prim ;
|
_ + ("e"|"u"|"o") => adjFondo prim ;
|
||||||
_ => adjPrim prim
|
_ => adjPrim prim
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user