mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-09 11:12:51 -06:00
fixed Scandinavian bugs in exx-resource
This commit is contained in:
@@ -12,13 +12,10 @@ concrete IdiomSwe of Idiom = CatSwe **
|
||||
GenericCl vp = mkClause "man" (agrP3 utr Sg) vp ;
|
||||
|
||||
CleftNP np rs = mkClause "det" (agrP3 neutr Sg)
|
||||
(insertObj (\\_ => rs.s ! np.a)
|
||||
(insertObj (\\_ => np.s ! rs.c) (predV verbBe))) ;
|
||||
(insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a) (predV verbBe)) ;
|
||||
|
||||
CleftAdv ad s = mkClause "det" (agrP3 neutr Sg)
|
||||
(insertObj (\\_ => "som" ++ s.s ! Sub)
|
||||
(insertObj (\\_ => ad.s) (predV verbBe))) ;
|
||||
|
||||
(insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;
|
||||
|
||||
ExistNP np =
|
||||
mkClause "det" (agrP3 neutr Sg) (insertObj
|
||||
|
||||
Reference in New Issue
Block a user