webalt0812

This commit is contained in:
alaine
2005-12-08 07:52:57 +00:00
parent 03ff170d43
commit d7759ffbb4
6 changed files with 7 additions and 7 deletions

View File

@@ -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 ;

View File

@@ -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)) ;