diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-03 20:42:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-03 20:42:09 +0000 |
| commit | 24207d40e9cb56173de22d9a424975f0da0bc416 (patch) | |
| tree | 2c221dc4e6f9f7a4d665fe118e0cda12d3ea7290 /next-lib/src/english/NounEng.gf | |
| parent | 27de3c0e7b13a4674cf5829ccbb00b118e916ae8 (diff) | |
extended AP with Ord and compar in 1.5
Diffstat (limited to 'next-lib/src/english/NounEng.gf')
| -rw-r--r-- | next-lib/src/english/NounEng.gf | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/next-lib/src/english/NounEng.gf b/next-lib/src/english/NounEng.gf index 18ceeaa22..9f7771e48 100644 --- a/next-lib/src/english/NounEng.gf +++ b/next-lib/src/english/NounEng.gf @@ -31,18 +31,18 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in { a = np.a } ; - DetQuantOrd quant num ord = { - s = quant.s ! num.hasCard ! num.n ++ num.s ++ ord.s ; - sp = quant.sp ! num.hasCard ! num.n ++ num.s ++ ord.s ; - n = num.n - } ; - DetQuant quant num = { s = quant.s ! num.hasCard ! num.n ++ num.s ; sp = quant.sp ! num.hasCard ! num.n ++ num.s ; n = num.n } ; + DetQuantOrd quant num ord = { + s = quant.s ! num.hasCard ! num.n ++ num.s ++ ord.s ; + sp = quant.sp ! num.hasCard ! num.n ++ num.s ++ ord.s ; + n = num.n + } ; + DetNP det = { s = \\c => det.sp ; ---- case a = agrP3 det.n |