]> matita.cs.unibo.it Git - helm.git/commitdiff
unpatched version for the new CamplP5
authorFerruccio Guidi <ferruccio.guidi@unibo.it>
Tue, 10 Jan 2012 20:42:17 +0000 (20:42 +0000)
committerFerruccio Guidi <ferruccio.guidi@unibo.it>
Tue, 10 Jan 2012 20:42:17 +0000 (20:42 +0000)
matita/components/content_pres/cicNotationParser.ml

index de300180ca994945dc42724de41c2e179ec86f6e..38ce016768914215913ebb4ae0c2c047a6ece4a5 100644 (file)
@@ -209,8 +209,8 @@ let extract_term_production status pattern =
           match magic with
           | Ast.List0 (_, None) -> Gramext.Slist0 s
           | Ast.List1 (_, None) -> Gramext.Slist1 s
-          | Ast.List0 (_, Some l) -> Gramext.Slist0sep (s, gram_of_literal l)
-          | Ast.List1 (_, Some l) -> Gramext.Slist1sep (s, gram_of_literal l)
+          | Ast.List0 (_, Some l) -> Gramext.Slist0sep (s, gram_of_literal l, false)
+          | Ast.List1 (_, Some l) -> Gramext.Slist1sep (s, gram_of_literal l, false)
           | _ -> assert false
         in
         [ Env (List.map Env.list_declaration p_names),