Replace use of DetSg by DetArtSg in ExtraFin.PartCN to get it to compile.

This commit is contained in:
bringert
2008-08-12 15:14:26 +00:00
parent 42efbabaa6
commit 636300cc09

View File

@@ -58,7 +58,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
PartCN cn =
let
acn = DetCN (DetSg IndefArt NoOrd) cn
acn = DetCN (DetArtSg IndefArt) cn
in {
s = table {
NPCase Nom | NPAcc => acn.s ! NPCase Part ;