merging Lexicon with Swadesh

resource-1.0/romance/CommonRomance.gf

@@ -168,6 +168,10 @@ oper
 
     vpAgrNone : VPAgr = VPAgrClit (aagr Masc Sg) ;
 
+  oper
+    mkOrd : {s : Degree => AForm => Str} -> {s : AAgr => Str} ;
+    mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n} ;
+
   param
     VPAgr = 
        VPAgrSubj                    -- elle est partie, elle s'est vue
@@ -189,5 +193,6 @@ oper
       ext    : Polarity => Str ;         -- que je dors / que je dorme
       } ;
 
+
 }