diff --git a/lib/resource/english/SyntaxEng.gf b/lib/resource/english/SyntaxEng.gf index d040649ab..fd57df9dc 100644 --- a/lib/resource/english/SyntaxEng.gf +++ b/lib/resource/english/SyntaxEng.gf @@ -1317,7 +1317,7 @@ oper -- "What do you want to do? - Wash myself." verbUtterance : VerbPhrase -> Utterance = \vp -> - ss (vp.s1 ++ vp.s ! VIInfinit ! ASgP1) ; + ss (vp.s1 ++ vp.s ! VIInfinit ! ASgP1 ++ ".") ; --2 Sentence adverbs diff --git a/lib/resource/finnish/ClauseFin.gf b/lib/resource/finnish/ClauseFin.gf index b11c99d5f..240b8650d 100644 --- a/lib/resource/finnish/ClauseFin.gf +++ b/lib/resource/finnish/ClauseFin.gf @@ -187,7 +187,7 @@ concrete ClauseFin of Clause = CategoriesFin ** (insertObjectInf (mkClauseInf verb) verb.c verb.s3 verb.p y) verb.c2 verb.s5 verb.p2 z ; IPredVS verb sent = - insertComplementInf (mkClauseInf verb) sent.s ; + insertComplementInf (mkClauseInf verb) (embedConj ++ sent.s) ; IPredVQ verb quest = insertComplementInf (mkClauseInf verb) quest.s ; diff --git a/lib/resource/finnish/RulesFin.gf b/lib/resource/finnish/RulesFin.gf index 42437c04a..4ebb83139 100644 --- a/lib/resource/finnish/RulesFin.gf +++ b/lib/resource/finnish/RulesFin.gf @@ -63,7 +63,7 @@ lin PredAS adj sent = sats2clause ( insertComplement (mkSats impersNounPhrase (vNom verbOlla)) - (complAdjPhrase Sg (adj2adjPhrase adj) ++ sent.s) + ((adj2adjPhrase adj).s ! APred ! AN (NCase Sg Part) ++ embedConj ++ sent.s) ) ; PredV0 rain = sats2clause (mkSats impersNounPhrase (vNom rain)) ; diff --git a/lib/resource/romance/SyntaxRomance.gf b/lib/resource/romance/SyntaxRomance.gf index 39427d09b..6ec967412 100644 --- a/lib/resource/romance/SyntaxRomance.gf +++ b/lib/resource/romance/SyntaxRomance.gf @@ -882,7 +882,7 @@ oper questClause : Clause -> Question = \cl -> {s = \\b,c => table { DirQ => cl.s ! b ! c ; - IndirQ => cl.s ! b ! c + IndirQ => siSubj.s ++ cl.s ! b ! c } } ; @@ -1174,7 +1174,7 @@ oper useNounPhrase (indefNounPhrase n mec) ; verbUtterance : VerbPhrase -> Utterance = \vp -> - ss (vp.s ! VIInfinit ! Masc ! Sg ! P3) ; + ss (vp.s ! VIInfinit ! Masc ! Sg ! P3 ++ ".") ; -- one-form variants diff --git a/lib/resource/scandinavian/SyntaxScand.gf b/lib/resource/scandinavian/SyntaxScand.gf index 6f6886d97..11b5fd1ce 100644 --- a/lib/resource/scandinavian/SyntaxScand.gf +++ b/lib/resource/scandinavian/SyntaxScand.gf @@ -1346,7 +1346,7 @@ oper in table { DirQ => dusov ! Inv ; - IndirQ => dusov ! Sub + IndirQ => (strPrep CPom) ++ dusov ! Sub } } ; diff --git a/lib/resource/spanish/BasicSpa.gf b/lib/resource/spanish/BasicSpa.gf index 4635a6514..891c3bd8a 100644 --- a/lib/resource/spanish/BasicSpa.gf +++ b/lib/resource/spanish/BasicSpa.gf @@ -75,7 +75,7 @@ lin factory_N = regN "fábrica" ; father_N2 = deN2 (regN "padre") ; fear_VS = mkVS (regV "temer") ; - find_V2 = dirV2 (regV "encontrar") ; + find_V2 = dirV2 (verboV (encontrar_38 "encontrar")) ; fish_N = mascN (regN "pez") ; floor_N = regN "suelo" ; -- piso forget_V2 = dirV2 (regV "olvidar") ;