Source

ocamlspot / spotfile.ml

Diff from to

spotfile.ml

   (* CR jfuruse: exception *)
   (* CRv2 jfuruse: add and check cache time stamp *)
   let load_directly_with_cache : string -> Unit.t = 
-    Hashtbl.memoize (Hashtbl.create 17 ) (fun path ->
+    Hashtbl.memoize (Hashtbl.create 17) (fun path ->
       try
         let file = load_directly path in
         if not (check_time_stamp ~cmt:path file.Unit.path) then