now ago_Prep is postposition in English

2013-11-13 20:58:08 +00:00
parent 6b5d3deb53
commit 0eb0428f83
6 changed files with 7 additions and 8 deletions
@@ -9,7 +9,7 @@ concrete AdverbEng of Adverb = CatEng ** open ResEng, Prelude in {
      s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ s.s
      } ;

-    PrepNP prep np = {s = prep.s ++ np.s ! NPAcc} ;
+    PrepNP prep np = {s = preOrPost prep.isPre prep.s (np.s ! NPAcc)} ;

    AdAdv = cc2 ;
    PositAdAAdj a = {s = a.s ! AAdv} ;