aboutsummaryrefslogtreecommitdiffhomepage
path: root/plugins/extraction/scheme.ml
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/extraction/scheme.ml')
-rw-r--r--plugins/extraction/scheme.ml7
1 files changed, 5 insertions, 2 deletions
diff --git a/plugins/extraction/scheme.ml b/plugins/extraction/scheme.ml
index 612da1349..c07710713 100644
--- a/plugins/extraction/scheme.ml
+++ b/plugins/extraction/scheme.ml
@@ -99,9 +99,12 @@ let rec pp_expr env args =
if ids <> [] then named_lams (List.rev ids) e
else dummy_lams (ast_lift 1 e) 1
in
- hov 2 (str (find_custom_match pv) ++ fnl () ++
+ apply
+ (paren
+ (hov 2
+ (str (find_custom_match pv) ++ fnl () ++
prvect (fun tr -> pp_expr env [] (mkfun tr) ++ fnl ()) pv
- ++ pp_expr env [] t)
+ ++ pp_expr env [] t)))
| MLcase (info,t, pv) ->
let e =
if info.m_kind <> Coinductive then pp_expr env [] t