mirror of
https://github.com/comby-tools/comby.git
synced 2024-10-04 00:34:32 +03:00
lazy max_steps
This commit is contained in:
parent
4d928e3bff
commit
5886796aae
@ -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 ->
|
||||||
|
Loading…
Reference in New Issue
Block a user