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
|
||||
|
||||
let fix_lazy f =
|
||||
let max_steps = 20 in
|
||||
let max_steps = 1 in
|
||||
let steps = ref max_steps in
|
||||
let rec p = lazy (f r)
|
||||
and r = { run = fun buf pos more fail succ ->
|
||||
|
Loading…
Reference in New Issue
Block a user