restore compilation
This commit is contained in:
1 parent
8aa53d83f5
commit
aae1eba2b5
2 files changed
+2
-2
No files matched your search
@@ -122,7 +122,7 @@ concrete ExtendEst of Extend =
|
|||||||
|
|
||||||
-- : Num -> CN -> RNP ; -- my car(s)
|
-- : Num -> CN -> RNP ; -- my car(s)
|
||||||
ReflPoss num cn = {
|
ReflPoss num cn = {
|
||||||
s = \\_,npf => possPron ! a ++ num.s ! Sg ! Nom ++
|
s = \\a,npf => possPron ! a ++ num.s ! Sg ! Nom ++
|
||||||
cn.s ! NCase num.n (npform2case num.n npf) ;
|
cn.s ! NCase num.n (npform2case num.n npf) ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -195,7 +195,7 @@ lin
|
|||||||
ConsImp = consrTable3 RPolarity P.ImpForm Gender comma ;
|
ConsImp = consrTable3 RPolarity P.ImpForm Gender comma ;
|
||||||
ConjImp = conjunctDistrTable3 RPolarity P.ImpForm Gender ;
|
ConjImp = conjunctDistrTable3 RPolarity P.ImpForm Gender ;
|
||||||
|
|
||||||
TPastSimple = {s = []} ** {t = RPasse} ;
|
TPastSimple = {s = []} ** {t = RPasse} ; --# notpresent
|
||||||
|
|
||||||
lin CompoundN a b = lin N {
|
lin CompoundN a b = lin N {
|
||||||
s = \\n => b.s ! n ++
|
s = \\n => b.s ! n ++
|
||||||
|
|||||||
Reference in new issue
Block a user