equal
deleted
inserted
replaced
131 handle exn => (*FIXME*) |
131 handle exn => (*FIXME*) |
132 if Exn.is_interrupt exn then Exn.reraise exn |
132 if Exn.is_interrupt exn then Exn.reraise exn |
133 else |
133 else |
134 (warning (" test: file " ^ Path.print file ^ |
134 (warning (" test: file " ^ Path.print file ^ |
135 " raised exception: " ^ Runtime.exn_message exn); |
135 " raised exception: " ^ Runtime.exn_message exn); |
136 {gc = Time.zeroTime, cpu = Time.zeroTime, elapsed = Time.zeroTime}) |
136 Timing.zero) |
137 val to_real = Time.toReal |
137 val to_real = Time.toReal |
138 val diff_elapsed = |
138 val diff_elapsed = |
139 #elapsed t2 - #elapsed t1 |
139 #elapsed t2 - #elapsed t1 |
140 |> to_real |
140 |> to_real |
141 val elapsed = to_real (#elapsed t2) |
141 val elapsed = to_real (#elapsed t2) |