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

bug fixes in Finnish

Browse Source
This commit is contained in:
aarne
2010-01-04 21:16:34 +00:00
parent f6cbc69e09
commit 14efc8a8a5
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -16,9 +16,9 @@ concrete IdiomFin of Idiom = CatFin **
ExistIP ip =
let
cas : NPForm = NPCase Part ; --- dep on num, pol?
cas : NPForm = NPCase Nom ; ---- also partitive in Extra
vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ;
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 Sg}) cas) (agrP3 Sg) vp
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp
in {
s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
} ;