From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Mon, 25 Aug 2008 18:19:49 +0000 (+0000)
Subject: bug fix in inline syntax
X-Git-Tag: make_still_working~4839
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=fd4196b476bff30c46a80cd858ea7bf057f301eb;p=helm.git

bug fix in inline syntax
---

diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index 38a8667d3..b9f6d388f 100644
--- a/helm/software/components/grafite_parser/grafiteParser.ml
+++ b/helm/software/components/grafite_parser/grafiteParser.ml
@@ -509,7 +509,7 @@ EXTEND
     | [ IDENT "inline"]; 
         style = OPT [ IDENT "procedural"; depth = OPT int -> depth ];
         suri = QSTRING; prefix = OPT QSTRING;
-	flavour = OPT [ IDENT "as"; attr = inline_flavour -> attr ]->
+	flavour = OPT [ "as"; attr = inline_flavour -> attr ] ->
          let style = match style with 
             | None       -> GrafiteAst.Declarative
             | Some depth -> GrafiteAst.Procedural depth