(Est) Remove param SType from Cl

unnecessary apram, can form question by adding string "kas" when needed

src/estonian/SentenceEst.gf

@@ -19,8 +19,7 @@ concrete SentenceEst of Sentence = CatEst ** open Prelude, ResEst in {
 
 -- The object case is formed at the use site of $c2$, in $Relative$ and $Question$.
 
-    SlashVP np vp = {
-      s = \\t,a,p => (mkClause (subjForm np vp.sc) np.a vp).s ! t ! a ! p ! SDecl ;
+    SlashVP np vp =  mkClause (subjForm np vp.sc) np.a vp ** {
       c2 = vp.c2
       } ;
 
@@ -29,26 +28,23 @@ concrete SentenceEst of Sentence = CatEst ** open Prelude, ResEst in {
       c2 = slash.c2
       } ;
 
-    SlashPrep cl prep = {
-      s = \\t,a,p => cl.s ! t ! a ! p ! SDecl ;
+    SlashPrep cl prep = cl ** {
       c2 = prep
       } ;
 
-    SlashVS np vs slash = {
-      s = \\t,a,p =>
-        (mkClause (subjForm np vs.sc) np.a
-          (insertExtrapos (etta_Conj ++ slash.s)
-             (predV vs))
-        ).s ! t ! a ! p ! SDecl ;
-      c2 = slash.c2
-      } ;
+    SlashVS np vs slash =
+      let cl : Clause =
+            mkClause
+              (subjForm np vs.sc) np.a
+              (insertExtrapos (etta_Conj ++ slash.s) (predV vs))
+       in cl ** {c2 = slash.c2} ;
 
 
     EmbedS  s  = {s = etta_Conj ++ s.s} ;
     EmbedQS qs = {s = qs.s} ;
     EmbedVP vp = {s = infVP (NPCase Nom) Pos (agrP3 Sg) vp InfDa} ; --- case,pol,agr,infform
 
-    UseCl  t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! SDecl} ;
+    UseCl  t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p} ;
     UseQCl t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p} ;
     UseRCl t p cl = {
       s = \\r => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! r ;