camlspotter avatar camlspotter committed ddc1b48

crypt was wrong!

Comments (0)

Files changed (1)

 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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.