From 8d80911f0e3fee1c60ba3a6e3b006be16baeab79 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 8 Nov 2006 15:12:35 +0000
Subject: [PATCH] corrections in finnish tram

---
 examples/godis-tram/Tram/TramUserFin.gf | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/examples/godis-tram/Tram/TramUserFin.gf b/examples/godis-tram/Tram/TramUserFin.gf
index eff07ec22..66287a9bf 100644
--- a/examples/godis-tram/Tram/TramUserFin.gf
+++ b/examples/godis-tram/Tram/TramUserFin.gf
@@ -1,13 +1,19 @@
 --# -path=.:../Common:prelude:alltenses:mathematical
 
 concrete TramUserFin of TramUser = TramUserFin0-[stop_dest_stop, stop_dept_stop] **
-  open GrammarFin, GodisLangFin, TramLexiconFin in {
+  open GrammarFin, GodisLangFin, TramLexiconFin, ParadigmsFin in {
 
 lin
   stop_dest_stop x y = 
     UttAdv (mkAdv (
-      fromStr Adv (PrepNP (casePrep from_Case) x) ++
-      fromStr Adv (PrepNP (casePrep to_Case) y)
+      (PrepNP (casePrep from_Case) x).s ++
+      (PrepNP (casePrep to_Case) y).s
+        )
+      ) ;
+  stop_dept_stop x y = 
+    UttAdv (mkAdv (
+      (PrepNP (casePrep to_Case) x).s ++
+      (PrepNP (casePrep from_Case) y).s
         )
       ) ;
 }