allow access to loop vars

This commit is contained in:
Mike J Innes 2017-05-01 14:00:39 +01:00
parent 33c6781c99
commit b19e31714d

View File

@ -10,11 +10,11 @@ macro cb(ex, t, f)
:(let :(let
t0 = time_ns() t0 = time_ns()
dt = $t*1e9 dt = $t*1e9
f = () -> $f
@progress $(Expr(:for, cond, quote @progress $(Expr(:for, cond, quote
t = time_ns() t = time_ns()
if t - t0 > dt if t - t0 > dt
t0 = t t0 = t
f = () -> $f
f() f()
end end
$body $body