mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-03 07:33:39 -06:00
simplify mkQuant
This commit is contained in:
@@ -257,7 +257,7 @@ oper
|
|||||||
mkCard : Str -> Card = \s -> lin Card (invarDeterminer s Num5) ;
|
mkCard : Str -> Card = \s -> lin Card (invarDeterminer s Num5) ;
|
||||||
mkDet : Str -> Det = \s -> lin Det (invarDeterminer s Num5) ;
|
mkDet : Str -> Det = \s -> lin Det (invarDeterminer s Num5) ;
|
||||||
mkQuant : Str -> Quant = \s ->
|
mkQuant : Str -> Quant = \s ->
|
||||||
lin Quant (adjFormsAdjective (mkA s)) ;
|
lin Quant (adjFormsAdjective (guessAdjForms s)) ;
|
||||||
|
|
||||||
mkACard : Str -> ACard = \s -> lin ACard {s = s} ;
|
mkACard : Str -> ACard = \s -> lin ACard {s = s} ;
|
||||||
mkAdN : Str -> AdN = \s -> lin AdN {s = s} ;
|
mkAdN : Str -> AdN = \s -> lin AdN {s = s} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user