From b047a99a84c1b21f60b44eb12d7a11e9f3d056ea Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 21 Nov 2008 12:33:56 +0000
Subject: Added CompCN to ParseEng. Perhaps this should move to NounEng.

---
 next-lib/src/parse/ParseEng.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'next-lib/src/parse/ParseEng.gf')

diff --git a/next-lib/src/parse/ParseEng.gf b/next-lib/src/parse/ParseEng.gf
index 88b3ec9a1..80fd6da0f 100644
--- a/next-lib/src/parse/ParseEng.gf
+++ b/next-lib/src/parse/ParseEng.gf
@@ -30,7 +30,7 @@ concrete ParseEng of ParseEngAbs =
 	      VA, become_VA],
   BigLexEng
 
-  ** open ParadigmsEng, ResEng, MorphoEng, ParamX, Prelude in {
+  ** open ParadigmsEng, ResEng, MorphoEng, NounEng, ParamX, Prelude in {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;
 
@@ -125,6 +125,9 @@ lin
       a = agrP3 Sg
       } ;
 
+    CompCN cn = { s = \\a => let n = (fromAgr a).n
+		              in IndefArt.s ! False ! n ++ cn.s ! n ! Acc} ;
+
 -- Lexical additions
 
 lin
-- 
cgit v1.2.3