mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 18:28:55 -06:00
corrected Extra; corrected Nor.si_V
This commit is contained in:
@@ -8,7 +8,6 @@ abstract Extra = Cat ** {
|
|||||||
|
|
||||||
fun
|
fun
|
||||||
GenNP : NP -> Quant ; -- this man's
|
GenNP : NP -> Quant ; -- this man's
|
||||||
EmbedBareS : S -> SC ; -- (I know) you go
|
|
||||||
ComplBareVS : VS -> S -> VP ; -- know you go
|
ComplBareVS : VS -> S -> VP ; -- know you go
|
||||||
|
|
||||||
}
|
}
|
||||||
@@ -2,7 +2,6 @@ concrete ExtraEng of ExtraEngAbs = CatEng ** open ResEng in {
|
|||||||
|
|
||||||
lin
|
lin
|
||||||
GenNP np = {s = \\_ => np.s ! Gen} ;
|
GenNP np = {s = \\_ => np.s ! Gen} ;
|
||||||
EmbedBareS s = s ;
|
|
||||||
ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ;
|
ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -49,7 +49,7 @@ concrete IrregNor of IrregNorAbs = CatNor ** open ParadigmsNor in {
|
|||||||
lin se_V = mkV "se" "ser" "ses" "så" "sett" "se" ;
|
lin se_V = mkV "se" "ser" "ses" "så" "sett" "se" ;
|
||||||
lin selge_V = irregV "selge" "solgte" "solgt" ;
|
lin selge_V = irregV "selge" "solgte" "solgt" ;
|
||||||
lin sette_V = irregV "sette" "satte" "satt" ;
|
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 sitte_V = irregV "sitte" "satt" "sittet" ;
|
||||||
lin skjære_V = irregV "skjære" "skar" "skåret" ;
|
lin skjære_V = irregV "skjære" "skar" "skåret" ;
|
||||||
lin skrive_V = irregV "skrive" "skrev" "skrevet" ;
|
lin skrive_V = irregV "skrive" "skrev" "skrevet" ;
|
||||||
|
|||||||
@@ -6,7 +6,6 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand ** open CommonScand,R
|
|||||||
det = DDef Indef
|
det = DDef Indef
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
EmbedBareS s = {s = s.s ! Sub} ;
|
|
||||||
ComplBareVS v s = insertObj (\\_ => s.s ! Sub) (predV v) ;
|
ComplBareVS v s = insertObj (\\_ => s.s ! Sub) (predV v) ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user