diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-08 09:38:32 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-08 09:38:32 +0000 |
| commit | cbec29962e58f17ebe4f066e8268eac58dc8a5f7 (patch) | |
| tree | 8256dfd57b5ae2389595f2e3b7ae7935d86c2855 /next-lib/src | |
| parent | 4e921573f4ab33d955f895fcca60436e8b00ee78 (diff) | |
corrections in Attempto grammars
Diffstat (limited to 'next-lib/src')
| -rw-r--r-- | next-lib/src/swedish/ParadigmsSwe.gf | 5 | ||||
| -rw-r--r-- | next-lib/src/swedish/StructuralSwe.gf | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/next-lib/src/swedish/ParadigmsSwe.gf b/next-lib/src/swedish/ParadigmsSwe.gf index e49fe2105..36d262c97 100644 --- a/next-lib/src/swedish/ParadigmsSwe.gf +++ b/next-lib/src/swedish/ParadigmsSwe.gf @@ -331,8 +331,9 @@ oper } ; regGenN : Str -> Gender -> N = \bil, g -> case g of { - Utr => case last bil of { - "a" => decl1Noun bil ; + Utr => case bil of { + _ + "are" => decl5Noun bil ; + _ + "a" => decl1Noun bil ; _ => decl2Noun bil } ; Neutr => case last bil of { diff --git a/next-lib/src/swedish/StructuralSwe.gf b/next-lib/src/swedish/StructuralSwe.gf index 97f17402f..b257b850a 100644 --- a/next-lib/src/swedish/StructuralSwe.gf +++ b/next-lib/src/swedish/StructuralSwe.gf @@ -132,7 +132,7 @@ lin Sg => \\_,_ => genderForms "ingen" "inget" ; Pl => \\_,_,_ => "inga" } ; - det = DDef Def + det = DIndef } ; if_then_Conj = {s1 = "om" ; s2 = "så" ; n = singular} ; |
