remove trace in the PMCFG compilation

This commit is contained in:
krasimir
2008-10-14 09:40:55 +00:00
parent 4573d10442
commit 3fe0cccaf7

View File

@@ -126,7 +126,7 @@ brk f (GrammarEnv last_id catSet seqSet funSet crcSet prodSet) =
ys = foldr (zipWith Set.insert) (repeat Set.empty) xs
convertRule :: TermMap -> GrammarEnv -> XRule -> GrammarEnv
convertRule cnc_defs grammarEnv (XRule fun args cat ctypes ctype term) = trace (show fun) $
convertRule cnc_defs grammarEnv (XRule fun args cat ctypes ctype term) =
brk (\grammarEnv -> foldBM addRule
grammarEnv
(convertTerm cnc_defs [] ctype term [([],[])])