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

english infVP bugfixed ; LangRus made compilable

Browse Source
This commit is contained in:
aarne
2006-05-08 16:57:24 +00:00
parent 952fce5499
commit 660644fcf5
2 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -293,7 +293,7 @@ resource ResEng = ParamX ** open Prelude in {
agrVerb (verb.s ! VPres) (verb.s ! VInf) ;
infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
if_then_Str isAux [] "to" ++
vp.ad ++ if_then_Str isAux [] "to" ++
vp.inf ++ vp.s2 ! a ;
agrVerb : Str -> Str -> Agr -> Str = \has,have,agr ->