Commits

Anonymous committed dc7d7ed

.

Comments (0)

Files changed (1)

 ;
 
 
+value fdbg fmt = Printf.ksprintf (Printf.eprintf "forms: %s\n%!") fmt
+;
+
+
 value enumpart_readchars
  : ! 'ch .
    ~buffer_size:int ->
            check (Sl.append sl' sl_t) it
        ]
      and loop k =
+       let () = fdbg "ep: loop" in
        mres (read_func inch buf_str 0 buffer_size) >>% fun read_res ->
        match read_res with
        [ `Error e ->
 
      and check sl it =
        match it with
-       [ IE_cont None k -> feed sl k
+       [ IE_cont None k ->
+           let () = fdbg "ep: check: cont" in
+           feed sl k
        | IE_cont (Some _) _ | IE_done _ ->
+           let () = fdbg "ep: check: ready" in
            IO.return (it, lazy (Sl.copy_my_buf buf_arr sl), EP_Some check)
        ]
      in
 ;
 
 
-value fdbg fmt = Printf.ksprintf (Printf.eprintf "forms: %s\n%!") fmt
-;
-
 (*
 на первом шаге it_subseq_step должен выдавать None для ". не нашли"
 и Some (то, что дают итераты, только в option) для "! есть значение"