From e75ed906212676c59812c533600d35a5e7362362 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 7 Dec 2013 08:01:28 +0000 Subject: [PATCH] make ParseFin compile with Construction --- src/finnish/stemmed/ParseFin.gf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/finnish/stemmed/ParseFin.gf b/src/finnish/stemmed/ParseFin.gf index 029a23cef..a4ce9f2ce 100644 --- a/src/finnish/stemmed/ParseFin.gf +++ b/src/finnish/stemmed/ParseFin.gf @@ -1,4 +1,4 @@ ---# -path=.:..:../../abstract:../../common:../../english:../kotus +--# -path=.:..:../../abstract:../../common:../../api:../../english:../kotus concrete ParseFin of ParseEngAbs = TenseX, ---- - [Pol, PNeg, PPos], @@ -21,7 +21,7 @@ concrete ParseFin of ParseEngAbs = VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV] , DictEngFin ** -open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, Prelude in { +open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, (E = ExtraFin), Prelude in { flags literal=Symb ; coding = utf8 ; @@ -68,7 +68,7 @@ lin PredVPosv np vp = mkCl np vp ; ---- -- Ant -> Pol -> VPSlash -> RS ; --- here replaced by a relative clause - PastPartRS ant pol vps = mkRS ant pol (mkRCl which_RP (passVPSlash (lin VPSlash vps))) ; + PastPartRS ant pol vps = mkRS ant pol (mkRCl which_RP (E.PassVPSlash (lin VPSlash vps))) ; ApposNP np1 np2 = { s = \\c => np1.s ! c ++ "," ++ np2.s ! c ;