- "(let __res = " ^ extra ^ " in (
- let interval =
- Unix.gettimeofday () -. (snd "^ !name^").("^string_of_int id^")
- in
- let oldcount,oldval = (fst "^ !name^").("^string_of_int id^") in
- (fst "^ !name^").("^string_of_int id^") <- (oldcount+1,interval +. oldval)
- ); __res )"
+ "(let __res = " ^ extra ^ " in ( "^
+ "let interval = Unix.gettimeofday () -. "^
+ "(snd "^ !name^").("^string_of_int id^") in "^
+ "let oldcount,oldval = (fst "^ !name^").("^string_of_int id^") in "^
+ "(fst "^ !name^").("^string_of_int id^") <- "^
+ "(oldcount+1,interval +. oldval)); __res )"