GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 18:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixes in ExtraFin

Browse Source
This commit is contained in:
aarne
2012-11-20 13:51:08 +00:00
parent f402d1687d
commit 59ee4e97f4
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/finnish/ExtraFin.gf
View File

@@ -13,6 +13,8 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
isNeg = False
} ;
GenIP ip = {s = \\_,_ => ip.s ! NPCase Gen} ;
GenCN n1 n2 = {s = \\nf => n1.s ! NPCase Gen ++ n2.s ! nf} ;
lincat
@@ -85,7 +87,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
AdvPredNP adv v np =
mkClause (\_ -> adv.s) np.a (insertObj
(\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
(\\_,b,_ => subjForm np v.sc b) (predV v)) ;
ICompExistNP adv np =
let cl = mkClause (\_ -> adv.s ! np.a) np.a (insertObj