diff options
| author | aarne <aarne@chalmers.se> | 2010-05-18 08:15:18 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-05-18 08:15:18 +0000 |
| commit | ec227abe43d73817325b7e7c121fcda047f56dca (patch) | |
| tree | b4f8a4fc40120270cc1cd223d7ffb5be41a30046 /examples | |
| parent | d1748049aaa5cb193cff11707e767308bca231e8 (diff) | |
fixed how far in PhrasebookSwe
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/phrasebook/WordsSwe.gf | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/examples/phrasebook/WordsSwe.gf b/examples/phrasebook/WordsSwe.gf index 27b6ee7cb..366fc0679 100644 --- a/examples/phrasebook/WordsSwe.gf +++ b/examples/phrasebook/WordsSwe.gf @@ -189,15 +189,16 @@ concrete WordsSwe of Words = SentencesSwe ** -- transports - HowFar place = mkQS (mkQCl far_IAdv place.name) ; + HowFar place = + mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ; HowFarFrom place x = - mkQS (mkQCl far_IAdv (mkCl place.name (SyntaxSwe.mkAdv from_Prep x.name))) ; + mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) + (SyntaxSwe.mkAdv from_Prep x.name)))) ; HowFarFromBy place x t = - mkQS (mkQCl far_IAdv (mkCl place.name - (mkVP (mkVP (SyntaxSwe.mkAdv from_Prep x.name)) t))) ; + mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP place.to) + (SyntaxSwe.mkAdv from_Prep x.name)) t))) ; HowFarBy place t = - mkQS (mkQCl far_IAdv (mkCl place.name t)) ; - -- mkQS (mkQCl (mkIAdv far_IAdv t) y.name) ; + mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ; WhichTranspPlace trans place = mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; |