Commit 953123de authored by POTTIER Francois's avatar POTTIER Francois

Hoist two computations out of a loop in [E.query].

parent a82d5c32
......@@ -893,10 +893,10 @@ end = struct
)
end
else
let i = index s in
let m = table.(i) in
foreach (fun z ->
assert (Terminal.real z);
let i = index s in
let m = table.(i) in
let key = pack nt a z in
match H.find m key with
| w -> f w z
......
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