diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-16 07:53:01 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-16 07:53:01 +0000 |
| commit | b442cde3bd01fb935c215446097592510cf8e713 (patch) | |
| tree | fe29c30f27b61ae935f3fa0e6c758c61b5b7cd16 /next-lib/src/interlingua/QuestionIna.gf | |
| parent | b2b4a7064b9fd1aec75c2b3127c36e0f8a5ee513 (diff) | |
reduce the number of variants in Interlingua
Diffstat (limited to 'next-lib/src/interlingua/QuestionIna.gf')
| -rw-r--r-- | next-lib/src/interlingua/QuestionIna.gf | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/next-lib/src/interlingua/QuestionIna.gf b/next-lib/src/interlingua/QuestionIna.gf index aadbaa090..59d578ee3 100644 --- a/next-lib/src/interlingua/QuestionIna.gf +++ b/next-lib/src/interlingua/QuestionIna.gf @@ -4,8 +4,8 @@ concrete QuestionIna of Question = CatIna ** open ResIna, Prelude in { lin QuestCl cl = { - s = \\t,a,p => - let cls = cl.s ! t ! a ! p + s = \\use_irreg,t,a,p => + let cls = cl.s ! use_irreg ! t ! a ! p in table { OQuest => cls ! OQuest ; ODir => "an" ++ cls ! ODir @@ -14,7 +14,7 @@ concrete QuestionIna of Question = CatIna ** open ResIna, Prelude in { QuestVP qp vp = let cl = mkClause (qp.s ! Nom) Sp3 vp - in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ; + in {s = \\use_irreg,t,a,b,_ => cl.s ! use_irreg ! t ! a ! b ! ODir} ; QuestSlash ip slash = mkQuestion (ss (slash.p2 ++ ip.s ! slash.c2)) slash ; @@ -22,7 +22,7 @@ concrete QuestionIna of Question = CatIna ** open ResIna, Prelude in { QuestIAdv iadv cl = mkQuestion iadv cl ; QuestIComp icomp np = - mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV esserV)) ; + mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV_ esserV)) ; PrepIP p ip = {s = p.s ++ ip.s ! Nom} ; |