matitacLib: bugfix in .moo generation

[helm.git] / helm / software / matita / matitaEngine.ml

diff --git a/helm/software/matita/matitaEngine.ml b/helm/software/matita/matitaEngine.ml
index 7e5b20860811c87afe4891317be25770988d22f9..e2bb6feb9349316eb1ec5b0ef29d2e73e5da1622 100644 (file)
--- a/helm/software/matita/matitaEngine.ml
+++ b/helm/software/matita/matitaEngine.ml
@@ -129,10 +129,6 @@ let eval_ast ?do_heavy_checks lexicon_status
 exception TryingToAdd of string
 exception EnrichedWithStatus of exn * LexiconEngine.status * GrafiteTypes.status
 
-let out = ref ignore 
-
-let set_callback f = out := f
-
 let eval_from_stream ~first_statement_only ~include_paths 
  ?do_heavy_checks ?(enforce_no_new_aliases=true)
  ?(watch_statuses=fun _ _ -> ()) lexicon_status grafite_status str cb 
@@ -160,7 +156,6 @@ let eval_from_stream ~first_statement_only ~include_paths
             false, lexicon_status, grafite_status,
              (((grafite_status,lexicon_status),None)::statuses)
          | GrafiteParser.LSome ast ->
-            !out ast;
             cb grafite_status ast;
             let new_statuses =
              eval_ast ?do_heavy_checks lexicon_status