From 5cb147fa19fdd348a24bc9d90fc8b5a6041530d8 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 30 Mar 2010 18:48:59 +0000 Subject: simplified the treatment of politeness in Phrasebook --- examples/phrasebook/WordsSwe.gf | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'examples/phrasebook/WordsSwe.gf') diff --git a/examples/phrasebook/WordsSwe.gf b/examples/phrasebook/WordsSwe.gf index 2f5f83944..19160d004 100644 --- a/examples/phrasebook/WordsSwe.gf +++ b/examples/phrasebook/WordsSwe.gf @@ -33,11 +33,11 @@ concrete WordsSwe of Words = SentencesSwe ** Romanian = mkNP (mkPN "rumänska") ; Swedish = mkNP (mkPN "svenska") ; - AWant p obj = {s = \\r => mkCl (p.s ! r) want_VV (mkVP have_V2 obj)} ; - ALike p item = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "tycker") (mkPrep "om")) item} ; - AHave p kind = {s = \\r => mkCl (p.s ! r) have_V2 (mkNP kind)} ; - ASpeak p lang = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "tala")) lang} ; - ALove p q = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "älska")) (q.s ! r)} ; + AWant p obj = mkCl p want_VV (mkVP have_V2 obj) ; + ALike p item = mkCl p (mkV2 (mkV "tycker") (mkPrep "om")) item ; + AHave p kind = mkCl p have_V2 (mkNP kind) ; + ASpeak p lang = mkCl p (mkV2 (mkV "tala")) lang ; + ALove p q = mkCl p (mkV2 (mkV "älska")) q ; } -- cgit v1.2.3