Commits

camlspotter committed 063c224

cryptgraphic way to avoid overriding top values by open

  • Participants
  • Parent commits 055ec34

Comments (0)

Files changed (1)

 open Camlp4                                             (* -*- camlp4of -*- *)
 
+let seed = Hashtbl.hash Sys.argv
+
 module Id : Sig.Id = struct
   let name = "pa_top"
   let version = "1.0"
     let cntr = ref 0 in
     fun () -> 
       incr cntr; 
-      Printf.sprintf "__top_expr%d" !cntr
+      Printf.sprintf "__top_%d_expr%d" seed !cntr
   ;;
 
   let in_implem = ref false