aboutsummaryrefslogtreecommitdiffhomepage
path: root/contrib/extraction/scheme.ml
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/extraction/scheme.ml')
-rw-r--r--contrib/extraction/scheme.ml7
1 files changed, 2 insertions, 5 deletions
diff --git a/contrib/extraction/scheme.ml b/contrib/extraction/scheme.ml
index d74cb2264..75533f788 100644
--- a/contrib/extraction/scheme.ml
+++ b/contrib/extraction/scheme.ml
@@ -14,13 +14,9 @@ open Pp
open Util
open Names
open Nameops
-open Term
+open Libnames
open Miniml
-open Table
open Mlutil
-open Options
-open Libnames
-open Nametab
open Ocaml
(*s Scheme renaming issues. *)
@@ -113,6 +109,7 @@ let rec pp_expr env args =
pp_expr env args a
| MLmagic a ->
pp_expr env args a
+ | MLcustom s -> str s
and pp_one_pat env (r,ids,t) =