corrected Extra; corrected Nor.si_V

This commit is contained in:
aarne
2006-06-03 22:09:15 +00:00
parent 1c0de03529
commit d56e630046
4 changed files with 1 additions and 4 deletions

View File

@@ -8,7 +8,6 @@ abstract Extra = Cat ** {
fun
GenNP : NP -> Quant ; -- this man's
EmbedBareS : S -> SC ; -- (I know) you go
ComplBareVS : VS -> S -> VP ; -- know you go
}

View File

@@ -2,7 +2,6 @@ concrete ExtraEng of ExtraEngAbs = CatEng ** open ResEng in {
lin
GenNP np = {s = \\_ => np.s ! Gen} ;
EmbedBareS s = s ;
ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ;
}

View File

@@ -49,7 +49,7 @@ concrete IrregNor of IrregNorAbs = CatNor ** open ParadigmsNor in {
lin se_V = mkV "se" "ser" "ses" "så" "sett" "se" ;
lin selge_V = irregV "selge" "solgte" "solgt" ;
lin sette_V = irregV "sette" "satte" "satt" ;
lin si_V = irregV "si" "sa" "sagt" ;
lin si_V = mkV "si" "sier" "sies" "sa" "sagt" "sagd" ;
lin sitte_V = irregV "sitte" "satt" "sittet" ;
lin skjære_V = irregV "skjære" "skar" "skåret" ;
lin skrive_V = irregV "skrive" "skrev" "skrevet" ;

View File

@@ -6,7 +6,6 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand ** open CommonScand,R
det = DDef Indef
} ;
EmbedBareS s = {s = s.s ! Sub} ;
ComplBareVS v s = insertObj (\\_ => s.s ! Sub) (predV v) ;
}