1 files changed, 0 insertions, 67 deletions
diff --git a/next-lib/src/finnish/SentenceFin.gf b/next-lib/src/finnish/SentenceFin.gf
deleted file mode 100644
index 50ef6d447..000000000
--- a/next-lib/src/finnish/SentenceFin.gf
+++ /dev/null
@@ -1,67 +0,0 @@
-concrete SentenceFin of Sentence = CatFin ** open Prelude, ResFin in {
-
-  flags optimize=all_subs ;
-
-  lin
-
-    PredVP np vp = mkClause (subjForm np vp.sc) np.a vp ;
-
-    PredSCVP sc vp = mkClause (\_ -> sc.s) (agrP3 Sg) vp ;
-
-    ImpVP vp = {
-      s = \\pol,n => 
-        let 
-          agr   = {n = n ; p = P2} ;
-          verb  = vp.s ! VIImper ! Simul ! pol ! agr ;
-          compl = vp.s2 ! False ! pol ! agr ++ vp.ext  --- False = like inf (osta auto)
-        in
-        verb.fin ++ verb.inf ++ compl ;
-    } ;
-
--- 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 ;
-      c2 = vp.c2
-      } ;
-
-    AdvSlash slash adv = {
-      s  = \\t,a,b => slash.s ! t ! a ! b ++ adv.s ;
-      c2 = slash.c2
-      } ;
-
-    SlashPrep cl prep = {
-      s = \\t,a,p => cl.s ! t ! a ! p ! SDecl ; 
-      c2 = prep
-      } ;
-
-    SlashVS np vs slash = { 
-      s = \\t,a,p => 
-        (mkClause (subjForm np vs.sc) np.a 
-          (insertExtrapos ("että" ++ slash.s) 
-             (predV vs))
-        ).s ! t ! a ! p ! SDecl ;
-      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 Inf1} ; --- case,pol,agr,infform
-
-    UseCl  t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! SDecl} ;
-    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 ;
-      c = cl.c
-      } ;
-    UseSlash t p cl = {
-      s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ;
-      c2 = cl.c2
-    } ;
-
-    AdvS a s = {s = a.s ++ s.s} ;
-
-    RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ; ---- mikä
-
-}