From: Claudio Sacerdoti Coen Date: Sun, 4 Nov 2007 18:24:57 +0000 (+0000) Subject: Bug fixed: qualified names were not generated correctly when the dirname was not X-Git-Tag: make_still_working~5910 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=57bc566097b92e1f809ae227b674b48ba7953a62;p=helm.git Bug fixed: qualified names were not generated correctly when the dirname was not empty. --- diff --git a/helm/software/matita/matitacLib.ml b/helm/software/matita/matitacLib.ml index 1da706749..c458f2567 100644 --- a/helm/software/matita/matitacLib.ml +++ b/helm/software/matita/matitacLib.ml @@ -309,7 +309,7 @@ let main ~mode = let f = open_out (basename ^ ".ml") in LibrarySync.set_object_declaration_hook (fun _ obj -> - output_string f (CicExportation.ppobj basename obj); + output_string f (CicExportation.ppobj (Filename.basename basename) obj); flush f); let system_mode = Helm_registry.get_bool "matita.system" in let bench_mode = Helm_registry.get_bool "matita.bench" in