skip the compilation of InflectionCl for Present

src/bulgarian/DocumentationBul.gf

@@ -1,4 +1,3 @@
---# -path=.:../abstract:../common
 concrete DocumentationBul of Documentation = CatBul ** open 
   ResBul, Prelude, ParamX, HTML in {
 flags coding=utf8 ;
@@ -181,6 +180,8 @@ lin
     s3= ""
     } ;
 
+{-
+-} --# notpresent
   InflectionCl = \cl -> {
     t = "изр" ;
     s1 = heading1 ("Изречение") ;
@@ -286,6 +287,9 @@ lin
     s3 = ""
   } ;
 
+{-  --# notpresent
+-}
+
   InflectionV v = {
     t = "гл" ;
     s1= heading1 ("Глагол") ++

src/english/DocumentationEng.gf

@@ -111,6 +111,9 @@ lin
     s3= ""
     } ;
 
+{-
+-}  --# notpresent
+
   InflectionCl = \cl -> {
     t  = "cl" ;
     s1 = heading1 "Clause" ;
@@ -126,6 +129,9 @@ lin
          )
     } ;
 
+{-  --# notpresent
+-}
+
   InflectionV v = {
     t = "v" ;
     s1= heading1 "Verb" ++
@@ -242,6 +248,10 @@ lin
     } ;
 
 oper
+
+{-
+-}  --# notpresent
+
   inflClauseTense : Str -> Str -> ResEng.Tense -> Cl -> Str = \simple,perfect,tense,cl ->
     tr (intagAttr "th" "rowspan=\"2\"" simple ++
         td (cl.s ! tense ! Simul ! CPos       ! ODir False) ++
@@ -254,6 +264,9 @@ oper
         td (cl.s ! tense ! Anter ! CNeg True  ! ODir False) ++
         td (cl.s ! tense ! Anter ! CNeg True  ! OQuest)) ;
 
+{-  --# notpresent
+-}
+
   inflVerb : Verb -> Str = \verb ->
     frameTable (
       tr (th "infinitive"    ++ td (verb.s ! VInf)) ++

src/german/DocumentationGerFunctor.gf

@@ -134,6 +134,9 @@ lin
     s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s
     } ;
 
+{-
+-}  --# notpresent
+
   InflectionCl = \cl -> {
     t  = "satz" ;
     s1 = heading1 "Satz" ;
@@ -157,6 +160,9 @@ lin
          )
     } ;
 
+{-  --# notpresent
+-}
+
   InflectionV v = {
     t  = "v" ;
     s1 = heading1 (heading verb_Category) ++  
@@ -237,6 +243,9 @@ lin
   MkTag i = ss i.t ;
 
 oper
+{-
+-}  --# notpresent
+
   inflClauseTense : Str -> Str -> ResGer.Tense -> Cl -> Str = \simple,perfect,tense,cl ->
     tr (intagAttr "th" "rowspan=2" simple ++
         td (cl.s ! MIndic ! tense ! Simul ! Pos ! Main) ++
@@ -249,6 +258,9 @@ oper
         td (cl.s ! MIndic ! tense ! Anter ! Neg ! Main) ++
         td (cl.s ! MIndic ! tense ! Anter ! Neg ! Inv)) ;
 
+{-  --# notpresent
+-}
+
   verbExample : CatGer.Cl -> Str = \cl ->
      (S.mkUtt cl).s 
      ++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s  --# notpresent