From cb168e92e23d0f620b75f6119a4cb298360e6f21 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Mon, 19 Jun 2006 20:17:05 +0000 Subject: Sync FCFG with the latest repo version --- src/GF/Parsing/MCFG/FastActive.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/Parsing/MCFG/FastActive.hs') diff --git a/src/GF/Parsing/MCFG/FastActive.hs b/src/GF/Parsing/MCFG/FastActive.hs index de33172d2..0a8e24b55 100644 --- a/src/GF/Parsing/MCFG/FastActive.hs +++ b/src/GF/Parsing/MCFG/FastActive.hs @@ -39,8 +39,9 @@ import Data.Array -- parse :: (Ord c, Ord n, Ord l, Ord t) => String -> MCFParser c n l t parse strategy pinfo starts = - [ Abs (cat, found) (zip rhs rrecs) fun | - Final (Abs cat rhs fun) found rrecs <- listXChartFinal chart ] + accumAssoc groupSyntaxNodes $ + [ ((cat, found), SNode fun (zip rhs rrecs)) | + Final (Abs cat rhs fun) found rrecs <- listXChartFinal chart ] where chart = process strategy pinfo axioms emptyXChart -- axioms | isBU strategy = terminal pinfo toks ++ initialScan pinfo toks -- cgit v1.2.3