store the total number of PMCFG categories in the PGF file

1 files changed, 1 insertions, 5 deletions

diff --git a/src/PGF/Parsing/FCFG/Incremental.hs b/src/PGF/Parsing/FCFG/Incremental.hs
index c8d9d8f8d..8dc3c3da5 100644
--- a/src/PGF/Parsing/FCFG/Incremental.hs
+++ b/src/PGF/Parsing/FCFG/Incremental.hs
@@ -35,12 +35,8 @@ initState pinfo start =
         (lbl,seqid) <- assocs lins

         return (Active 0 0 funid seqid args (AK cat lbl))

         

-      max_fid = maximum (0:[maximum (cat:args) | (cat, set) <- IntMap.toList (productions pinfo)

-                                               , p <- Set.toList set

-                                               , let args = case p of {FApply _ args -> args; FCoerce cat -> [cat]}])+1

-

   in State pinfo

-           (Chart emptyAC [] emptyPC (productions pinfo) max_fid 0)

+           (Chart emptyAC [] emptyPC (productions pinfo) (totalCats pinfo) 0)

            (Set.fromList items)

 

 -- | From the current state and the next token