let mk_case_pattern =
function
Ast.Pattern (head, href, vars) ->
- hbox true false (ident_w_href href head :: List.map aux_var vars)
+ hvbox true false (ident_w_href href head :: List.map aux_var vars)
| Ast.Wildcard -> builtin_symbol "_"
in
let patterns' =