forked from GitHub/gf-rgl
Implement AdvNP
This commit is contained in:
@@ -84,4 +84,9 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
|
|||||||
s = \\n, c => adv.s ++ cn.s ! n ! c;
|
s = \\n, c => adv.s ++ cn.s ! n ! c;
|
||||||
gen = \\n, a => adv.s ++ cn.gen ! n ! a
|
gen = \\n, a => adv.s ++ cn.gen ! n ! a
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
AdvNP np adv = {
|
||||||
|
s = \\c => adv.s ++ np.s ! c;
|
||||||
|
a = np.a
|
||||||
|
} ;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user