X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.mli;h=9e6f1dc6f8cdeccfd942bc223c61b89eda03b4b5;hb=647504aa72b84eb49be8177b88a9254174e84d4b;hp=aa0fb5bdee9764f6edc70990f57a15d9c0304d64;hpb=cacbe3c6493ddce76c4c13379ade271d8dd172e8;p=helm.git

diff --git a/matitaB/components/grafite_parser/grafiteParser.mli b/matitaB/components/grafite_parser/grafiteParser.mli
index aa0fb5bde..9e6f1dc6f 100644
--- a/matitaB/components/grafite_parser/grafiteParser.mli
+++ b/matitaB/components/grafite_parser/grafiteParser.mli
@@ -32,6 +32,7 @@ class type g_status =
  end
 
 class virtual status :
+ string option ->
  object('self)
   inherit g_status
   inherit CicNotationParser.status
@@ -50,3 +51,4 @@ val extend : #status as 'status ->
 type parsable
 val parsable_statement: #status -> Ulexing.lexbuf -> parsable
 val parse_statement: #status -> parsable -> GrafiteAst.statement
+val strm_of_parsable: parsable -> Ulexing.lexbuf