@@ -54,6 +54,7 @@ collect (PClauses [c@(PClause n l r)] : ds) = clauses n [c] ds
5454 | n == n' = clauses n (c : acc) ds
5555 clauses n acc xs = PClauses (reverse acc) : collect xs
5656collect (d : ds) = d : collect ds
57+collect [] = []
5758
5859pFullExpr = do x <- pExpr; eof; return x
5960