simplified the treatment of politeness in Phrasebook

This commit is contained in:
aarne
2010-03-30 18:48:59 +00:00
parent 0e91a4d84d
commit 66cca22f38
24 changed files with 157 additions and 183 deletions

View File

@@ -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) ;
}