Commit 6868ed0a authored by John van Groningen's avatar John van Groningen

rewrite CAF with a guard, the =: is now parsed as a pattern match test

parent e15302a6
......@@ -21,8 +21,11 @@ measure_clock_speed_and_profile_overhead = code {
clock_speed_and_profile_overhead :: (!Int,!Real,!Real)
clock_speed_and_profile_overhead
| define_fltused True
=: measure_clock_speed_and_profile_overhead
=: clock_speed_and_profile_overhead
where
clock_speed_and_profile_overhead
| define_fltused True
= measure_clock_speed_and_profile_overhead
get_compute_time_function :: !*File -> (!(Int,Int,Int) -> Real,!*File)
get_compute_time_function file
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment