From 0138e6bba1d593fcdf5417dc8596c63757585796 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 8 Apr 2010 20:31:32 +0000
Subject: German phrasebook; ontology document; ignoring single lines in gfdoc

---
 examples/phrasebook/WordsFin.gf | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'examples/phrasebook/WordsFin.gf')

diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf
index 056874443..f8a8415dd 100644
--- a/examples/phrasebook/WordsFin.gf
+++ b/examples/phrasebook/WordsFin.gf
@@ -144,6 +144,10 @@ concrete WordsFin of Words = SentencesFin **
     closed_Adv = ParadigmsFin.mkAdv "kiinni" ;
 
     nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> 
-      mkNP (E.GenNP p.name) (mkN "nimi" "nimiä") ; 
+      let nimi = L.name_N in
+      case p.isPron of {
+        True => mkNP p.poss nimi ;
+        _    => mkNP (E.GenNP p.name) nimi
+        } ; 
 
 }
-- 
cgit v1.2.3