mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
corrected Extra; corrected Nor.si_V
This commit is contained in:
@@ -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
|
||||
|
||||
}
|
||||
@@ -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) ;
|
||||
|
||||
}
|
||||
|
||||
@@ -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" ;
|
||||
|
||||
@@ -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) ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user