diff options
| author | aarne <aarne@chalmers.se> | 2010-05-29 10:22:49 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-05-29 10:22:49 +0000 |
| commit | e9ec8c69aa57b1f0a0e7f3bbb288774722c88eef (patch) | |
| tree | 1c180f04ed36b090a22dbf2efe3352f425bb7552 /examples | |
| parent | 510a4044675fdc6540e4a74aee656f25bdde9319 (diff) | |
preposition for toilet in PhrasebookSwe
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/phrasebook/WordsSwe.gf | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/phrasebook/WordsSwe.gf b/examples/phrasebook/WordsSwe.gf index c235be5b9..a1182d4c8 100644 --- a/examples/phrasebook/WordsSwe.gf +++ b/examples/phrasebook/WordsSwe.gf @@ -60,7 +60,7 @@ concrete WordsSwe of Words = SentencesSwe ** Station = mkPlace (mkN "station" "stationer") "på" ; Supermarket = mkPlace (mkN "snabbköp" "snabbköp") "på" ; Theatre = mkPlace (mkN "teater" "teatrar") "på" ; - Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; + Toilet = mkPlace2 (mkN "toalett" "toaletter") "på" "på" ; University = mkPlace (mkN "universitet" "universitet") "på" ; Zoo = mkPlace (mkN "djurpark" "djurparker") "i" ; @@ -228,6 +228,8 @@ concrete WordsSwe of Words = SentencesSwe ** mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep ; isPl : Bool} = \p,i -> mkCNPlace (mkCN p) (mkPrep i) to_Prep ; + mkPlace2 : N -> Str -> Str -> {name : CN ; at : Prep ; to : Prep ; isPl : Bool} = + \p,i,t -> mkCNPlace (mkCN p) (mkPrep i) (mkPrep t) ; open_A = mkA "öppen" "öppet" ; closed_A = mkA "stängd" "stängt" ; |