diff options
Diffstat (limited to 'src/PGF/Parsing/FCFG')
| -rw-r--r-- | src/PGF/Parsing/FCFG/Incremental.hs | 6 |
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
|