]> matita.cs.unibo.it Git - helm.git/commitdiff
(** xxx **) ==> (** xxx *)
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 31 Aug 2005 08:28:29 +0000 (08:28 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 31 Aug 2005 08:28:29 +0000 (08:28 +0000)
helm/matita/matitaScript.ml

index 60fc01032cb9ed52ca0908ca9808010e2916fa85..6e074787cc61477ed925b2a687ec21a157490927 100644 (file)
@@ -43,9 +43,9 @@ let newline_RE = Pcre.regexp "\n"
  
 let comment str =
   if Pcre.pmatch ~rex:multiline_RE str then
-    "\n(** " ^ (Pcre.replace ~rex:newline_RE str) ^ " **)"
+    "\n(** " ^ (Pcre.replace ~rex:newline_RE str) ^ " *)"
   else
-    "\n(**\n" ^ str ^ "\n**)"
+    "\n(**\n" ^ str ^ "\n*)"
                      
 let first_line s =
   let s = Pcre.replace ~rex:heading_nl_RE s in