module Code_join:sig
..end
typedefault_code_selection_type =
Code_selection_context.code_selection_context ->
Algebra_type.algop_expr -> Code_selection_context.code_selection_context
val build_join_code : Code_selection_context.code_selection_context ->
Algebra_type.algop_expr ->
default_code_selection_type ->
Algebra_type.alg_eval_code_dep *
Code_selection_context.code_selection_context