summaryrefslogtreecommitdiff
path: root/examples/phrasebook/PhrasebookRon.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/phrasebook/PhrasebookRon.gf')
-rw-r--r--examples/phrasebook/PhrasebookRon.gf14
1 files changed, 3 insertions, 11 deletions
diff --git a/examples/phrasebook/PhrasebookRon.gf b/examples/phrasebook/PhrasebookRon.gf
index 40cdf1eda..cb4c7bacb 100644
--- a/examples/phrasebook/PhrasebookRon.gf
+++ b/examples/phrasebook/PhrasebookRon.gf
@@ -5,19 +5,11 @@ concrete PhrasebookRon of Phrasebook =
WordsRon
** open
SyntaxRon,
- ResRon, ---- for Num to Utt
Prelude in {
-lincat
- Phrase = Text ;
-
lin
- PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).sp ! Masc)) ; ----
- PGreeting g = mkPhrase g ;
- PSentence s = mkText s ;
- PQuestion s = mkText s ;
-
-oper
- mkPhrase : SS -> Utt = \s -> lin Utt s ;
+ PSentence s = mkText s | lin Text (mkUtt s) ; -- optional .
+ PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional ?
+ PGreeting g = lin Text g ;
}