X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcontent_pres%2Ftest_lexer.ml;h=587d87bd898fd63bc3823ac32e19e3929c47b56f;hb=09cfd99de377d72d7af96ad9815342a1b7b467a9;hp=e76756e0f3d352c63421f8d021ddc8bdb6a14b24;hpb=488f49d2ac60fa63e65a19ad8684414266e05ac6;p=helm.git

diff --git a/helm/software/components/content_pres/test_lexer.ml b/helm/software/components/content_pres/test_lexer.ml
index e76756e0f..587d87bd8 100644
--- a/helm/software/components/content_pres/test_lexer.ml
+++ b/helm/software/components/content_pres/test_lexer.ml
@@ -37,9 +37,9 @@ let _ =
   Arg.parse arg_spec open_file usage;
   let lexer =
     match !level with
-	"1" -> CicNotationLexer.level1_pattern_lexer
-      | "2@" -> CicNotationLexer.level2_ast_lexer
-      | "2$" -> CicNotationLexer.level2_meta_lexer
+	"1" -> CicNotationLexer.level1_pattern_lexer ()
+      | "2@" -> CicNotationLexer.level2_ast_lexer ()
+      | "2$" -> CicNotationLexer.level2_meta_lexer ()
       | l ->
 	  prerr_endline (Printf.sprintf "Unsupported level %s" l);
 	  exit 2