genitive s in Nor possessives ; some Nor words in Phrasebook
This commit is contained in:
1 parent
23fc46867c
commit
f06d54837b
1 file changed
+5
-2
@@ -1,8 +1,11 @@
|
||||
concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor in {
|
||||
concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor, Prelude in {
|
||||
|
||||
lin
|
||||
PossNP np pro = {
|
||||
s = \\c => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a) ; ---- c
|
||||
s = table {
|
||||
NPPoss _ => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a) ++ BIND ++ "s" ; ----
|
||||
_ => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a)
|
||||
} ;
|
||||
a = np.a
|
||||
} ;
|
||||
}
|
||||
Reference in new issue
Block a user