transpose container
with x ->
- let error_message =
match x with
- | Convert_Error s -> "Convert_Error: " ^ s
- | Basic_operation s -> "Basic_operation: " ^ s
- | Signal_operation s -> "Signal_operation: " ^ s
- | Beam_matching s -> "Beam_Matching_Error: " ^ s
- | Invalid_argument s -> "Compute finished."
- in
- let () = print_string error_message in
- transpose (Array.sub container 0 !index)
+ | Invalid_argument s ->
+ transpose (Array.sub container 0 !index)
+ | _ -> raise x
method frequency : int array =
let each_rate : signal -> int =