diff options
| author | krasimir <krasimir@chalmers.se> | 2008-09-16 15:11:06 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-09-16 15:11:06 +0000 |
| commit | 647f7661c2b937acb4cdd88e3ea6ed2f286f6bd4 (patch) | |
| tree | b836bc31f68463275a0b78ae87d371423b838806 /src | |
| parent | 5c2eae8abd929d69aa4caef4a58e07d8188d70fd (diff) | |
fix the segmentation fault with Swedish
Diffstat (limited to 'src')
| -rw-r--r-- | src/PGF/Parsing/FCFG/Incremental.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/PGF/Parsing/FCFG/Incremental.hs b/src/PGF/Parsing/FCFG/Incremental.hs index fff5f0212..23b0424cc 100644 --- a/src/PGF/Parsing/FCFG/Incremental.hs +++ b/src/PGF/Parsing/FCFG/Incremental.hs @@ -39,9 +39,7 @@ initState pinfo start = forest = IntMap.fromListWith Set.union [(cat, Set.singleton (Passive ruleid args)) | (ruleid, FRule _ _ args cat _) <- assocs (allRules pinfo)]
- max_fid = case IntMap.maxViewWithKey forest of
- Just ((fid,_), _) -> fid+1
- Nothing -> 0
+ max_fid = maximum (0:[maximum (cat:args) | (ruleid, FRule _ _ args cat _) <- assocs (allRules pinfo)])+1
in State pinfo
(Chart MM.empty [] Map.empty forest max_fid 0)
|