diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
| commit | 3ff57f6184963acde7f3cc2dcf0638c0e819929a (patch) | |
| tree | e5c975ae99dd3e45f9a4e700658b39d9bf90e68f /examples/attempto/LexAttemptoEng.gf | |
| parent | 6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff) | |
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'examples/attempto/LexAttemptoEng.gf')
| -rw-r--r-- | examples/attempto/LexAttemptoEng.gf | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/attempto/LexAttemptoEng.gf b/examples/attempto/LexAttemptoEng.gf index 65ed0aa28..395e00c35 100644 --- a/examples/attempto/LexAttemptoEng.gf +++ b/examples/attempto/LexAttemptoEng.gf @@ -4,7 +4,7 @@ instance LexAttemptoEng of LexAttempto = SyntaxEng, ParadigmsEng, ConstructX, - MakeStructuralEng, + (M = MakeStructuralEng), IrregEng in { oper @@ -23,11 +23,11 @@ oper each_Det = ExtraEng.each_Det ; - that_Subj = mkSubj "that" ; + that_Subj = M.mkSubj "that" ; - comma_and_Conj = mkConj [] ", and" plural ; - comma_or_Conj = mkConj [] ", or" singular ; - slash_Conj = mkConj [] "/" singular ; + comma_and_Conj = M.mkConj [] ", and" plural ; + comma_or_Conj = M.mkConj [] ", or" singular ; + slash_Conj = M.mkConj [] "/" singular ; } |