|
@@ -1214,7 +1214,7 @@ module Printer = struct
|
|
|
Printf.sprintf "%s(%s)" (print_expr pctx e1) (print_exprs_named pctx ", " fields)
|
|
|
end
|
|
|
| "__define_feature__" ->
|
|
|
- print_expr pctx (List.hd el)
|
|
|
+ print_expr pctx (match el with [_;e] -> e | _ -> assert false)
|
|
|
| "__call__" ->
|
|
|
begin match el with
|
|
|
| e1 :: el ->
|