Commits

camlspotter  committed ddc1b48

crypt was wrong!

  • Participants
  • Parent commits a81dd24

Comments (0)

Files changed (1)

File pa/pa_top.ml

 open Camlp4                                             (* -*- camlp4of -*- *)
 
-let seed = Hashtbl.hash Sys.argv
+let seed = Digest.to_hex (Digest.string (String.concat " " (Array.to_list Sys.argv)))
 
 module Id : Sig.Id = struct
   let name = "pa_top"
     let cntr = ref 0 in
     fun () -> 
       incr cntr; 
-      Printf.sprintf "__top_%d_expr%d" seed !cntr
+      Printf.sprintf "__top_%s_expr%d" seed !cntr
   ;;
 
   let in_implem = ref false