msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Include adverb in infVP.

Browse Source 
infVP, used by for example AdVVP, did not include the new adv field. This caused adverbs to be suppressed when used in infitive clauses, e.g.:


Union> l UttS (UseCl TPres ASimul PPos (PredVP (UsePN john_PN)(ComplVV want_VV (AdVVP always_AdV (UseV sleep_V)))))
john wants to sleep
This commit is contained in:
bjorn
2008-02-22 17:06:23 +00:00
parent 32b783ec85
commit ad613cdd67
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource/english/ResEng.gf
View File

@@ -317,7 +317,7 @@ resource ResEng = ParamX ** open Prelude in {
infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
case isAux of {True => [] ; False => "to"} ++
vp.inf ++ vp.s2 ! a ;
(vp.s!Pres!Simul!CPos!ODir!a).adv ++ vp.inf ++ vp.s2 ! a ;
--- if_then_Str isAux [] "to" ++
--- vp.inf ++ vp.s2 ! a ;