Back-ported to camlp5 < 5.00.

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

diff --git a/helm/software/matita/rottener.ml b/helm/software/matita/rottener.ml
index 82f4d5947300cb9272c7c20d8adf09398db28c52..3674d25ebac94177cc329f39f92db287e8a45f20 100644 (file)
--- a/helm/software/matita/rottener.ml
+++ b/helm/software/matita/rottener.ml
@@ -111,7 +111,7 @@ let rotten_script ~fname statement =
   let script' = sprintf "%s%s%s%s" matches.(1) statement' matches.(3) trailer in
   let md5 = Digest.to_hex (Digest.string script') in
   HExtlib.output_file
-    ~filename:(sprintf "%s.rottened.%s.ma" (Filename.chop_extension fname) md5)
+    ~filename:(sprintf "%s.%s.rottened" fname md5)
     ~text:script'
 
 let grep () =