lazy max_steps

This commit is contained in:
Rijnard van Tonder 2021-06-26 22:40:05 -07:00
parent 4d928e3bff
commit 5886796aae

View File

@ -462,7 +462,7 @@ let fix_direct f =
r r
let fix_lazy f = let fix_lazy f =
let max_steps = 20 in let max_steps = 1 in
let steps = ref max_steps in let steps = ref max_steps in
let rec p = lazy (f r) let rec p = lazy (f r)
and r = { run = fun buf pos more fail succ -> and r = { run = fun buf pos more fail succ ->