updated ExistIP for all languages

2026-05-27 11:48:55 -06:00 · 2006-05-16 18:29:41 +00:00
parent c1aea3c2a9
commit e074720425
12 changed files with 79 additions and 35 deletions
--- a/lib/resource-1.0/english/QuestionEng.gf
+++ b/lib/resource-1.0/english/QuestionEng.gf
@@ -41,19 +41,4 @@ concrete QuestionEng of Question = CatEng ** open ResEng, Prelude in {

    CompIAdv a = a ;

-  oper
-    mkQuestion : 
-      {s : Str} -> Clause -> 
-      {s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl ->
-      {
-      s = \\t,a,p => 
-            let 
-              cls = cl.s ! t ! a ! p ;
-              why = wh.s
-            in table {
-              QDir   => why ++ cls ! OQuest ;
-              QIndir => why ++ cls ! ODir
-              }
-      } ;
-
 }