forked from GitHub/gf-rgl
Minimum viable implementation for MassNP
This commit is contained in:
@@ -43,6 +43,8 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
|
|||||||
|
|
||||||
UseN2 n = n;
|
UseN2 n = n;
|
||||||
|
|
||||||
|
MassNP cn = { s = cn.s ! Sg; a = { n = Sg; p = P1 } } ;
|
||||||
|
|
||||||
ComplN2 f x =
|
ComplN2 f x =
|
||||||
let
|
let
|
||||||
h : Harmony = {vow = f.harmony.vow; con = f.harmony.con}
|
h : Harmony = {vow = f.harmony.vow; con = f.harmony.con}
|
||||||
|
|||||||
Reference in New Issue
Block a user