···10921092 term
10931093 root
10941094 =
10951095- Printf.eprintf "running step\n";
10961095 let size = Term.size term in
10971096 let image =
10981097 if (not (Lwd.is_damaged root)) && !cache |> Option.is_some
+1-3
forks/nottui/lib/nottui_picos/nottui_picos.ml
···3434 ; It.invalidated_evt invalidation_tracker
3535 |> Event.map (fun _ -> `LwdStateUpdate)
3636 ]
3737- in
3838- Printf.eprintf "done waiting\n";
3737+ in
3938 ret
4039 in
4140 select ()
···5150 term
5251 root
5352 =
5454- Printf.eprintf "running step\n";
5553 let size = Term.size term in
5654 let image =
5755 if (not (Lwd.is_damaged root)) && !cache |> Option.is_some