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