added Noun.ApposCN

2006-03-17 11:01:09 +00:00
parent 6c9cbb9135
commit 2f9bdb996a
6 changed files with 31 additions and 5 deletions
--- a/resource-1.0/romance/NounRomance.gf
+++ b/resource-1.0/romance/NounRomance.gf
@@ -102,4 +102,9 @@ incomplete concrete NounRomance of Noun =
      g = g
      } ;

+    ApposCN  cn np = let g = cn.g in {
+      s = \\n => cn.s ! n ++ np.s ! Ton Nom ;
+      g = g
+      } ;
+
 }