simplified the treatment of politeness in Phrasebook

2010-03-30 18:48:59 +00:00
parent 0e91a4d84d
commit 66cca22f38
24 changed files with 157 additions and 183 deletions
--- a/examples/phrasebook/PhrasebookIta.gf
+++ b/examples/phrasebook/PhrasebookIta.gf
@@ -4,13 +4,11 @@ concrete PhrasebookIta of Phrasebook =
  GreetingsIta,
  WordsIta
  ** open 
-    (R = Roles),
    SyntaxIta,
-    ParadigmsIta,
    Prelude in {

 lin
-  PGreeting p g = mkText (lin Text (ss (g.s ! p.p ! R.Male ! R.Male))) (lin Text (ss p.s)) ;
+  PGreeting g = lin Text (ss g.s) ;

 }