swedish lexicon fixes

This commit is contained in:
aarne
2006-01-25 20:27:38 +00:00
parent 75e6f51bbc
commit 5052c9bab0
2 changed files with 7 additions and 6 deletions

View File

@@ -148,7 +148,7 @@ lin
religion_N = mk2N "religion" "religioner" ; religion_N = mk2N "religion" "religioner" ;
restaurant_N = mk2N "restaurang" "restauranger" ; restaurant_N = mk2N "restaurang" "restauranger" ;
river_N = mkN "å" "ån" "åar" "åarna" ; river_N = mkN "å" "ån" "åar" "åarna" ;
rock_N = regN "sten" utrum ; rock_N = mkN "sten" "stenen" "stenar" "stenarna" ;
roof_N = regN "tak" neutrum ; roof_N = regN "tak" neutrum ;
rubber_N = mkN "gummi" "gummit" "gummin" "gummina" ; rubber_N = mkN "gummi" "gummit" "gummin" "gummina" ;
run_V = (irregV "springa" "sprang" "sprungit") ; run_V = (irregV "springa" "sprang" "sprungit") ;
@@ -163,7 +163,7 @@ lin
sheep_N = mk2N "får" "får" ; sheep_N = mk2N "får" "får" ;
ship_N = regN "skepp" neutrum ; ship_N = regN "skepp" neutrum ;
shirt_N = regN "skjorta" utrum ; shirt_N = regN "skjorta" utrum ;
shoe_N = regN "sko" utrum ; shoe_N = mk2N "sko" "skor" ;
shop_N = mk2N "affär" "affären" ; shop_N = mk2N "affär" "affären" ;
short_A = regA "kort" ; short_A = regA "kort" ;
silver_N = mkN "silver" "silvret" "silver" "silvren" ; silver_N = mkN "silver" "silvret" "silver" "silvren" ;
@@ -175,7 +175,7 @@ lin
speak_V2 = dirV2 (regV "tala") ; speak_V2 = dirV2 (regV "tala") ;
star_N = regN "stjärna" utrum ; star_N = regN "stjärna" utrum ;
steel_N = regN "stål" utrum ; steel_N = regN "stål" utrum ;
stone_N = regN "sten" utrum ; stone_N = mkN "sten" "stenen" "stenar" "stenarna" ;
stove_N = regN "spis" utrum ; stove_N = regN "spis" utrum ;
student_N = mk2N "student" "studenter" ; student_N = mk2N "student" "studenter" ;
stupid_A = mk3A "dum" "dumt" "dumma" ; stupid_A = mk3A "dum" "dumt" "dumma" ;

View File

@@ -319,7 +319,8 @@ oper
let let
bb : Str * Str = case bil of { bb : Str * Str = case bil of {
pojk + "e" => <pojk + "ar", bil + "n"> ; pojk + "e" => <pojk + "ar", bil + "n"> ;
nyck + "e" + l@("l" | "r" | "n") => <nyck + l + "ar",bil + "n"> ; nyck + "e" + l@("l" | "r") => <nyck + l + "ar",bil + "n"> ;
sock + "e" + "n" => <sock + "nar", sock + "nen"> ;
_ => <bil + "ar", bil + "en"> _ => <bil + "ar", bil + "en">
} ; } ;
in mkN bil bb.p2 bb.p1 (bb.p1 + "na") ; in mkN bil bb.p2 bb.p1 (bb.p1 + "na") ;