constructor PositAdAAdj in Adverb, for most langs

2010-11-19 16:49:30 +00:00
parent 48b19db78e
commit 89d73386d5
9 changed files with 23 additions and 3 deletions
--- a/src/scandinavian/AdverbScand.gf
+++ b/src/scandinavian/AdverbScand.gf
@@ -15,6 +15,10 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca

    AdAdv = cc2 ;

+    PositAdAAdj a = {
+      s = a.s ! adverbForm
+      } ;
+
    SubjS subj s = {
      s = subj.s ++ s.s ! Sub
      }  ;