1
0
forked from GitHub/gf-rgl

Implement AdvNP

This commit is contained in:
Ayberk Tosun
2017-08-23 15:18:35 +03:00
parent 80ad54000c
commit 08c089c5a4

View File

@@ -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
} ;
} }