diff options
Diffstat (limited to 'contrib/extraction/scheme.ml')
-rw-r--r-- | contrib/extraction/scheme.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/scheme.ml b/contrib/extraction/scheme.ml index b6d0014ac..a47607fa8 100644 --- a/contrib/extraction/scheme.ml +++ b/contrib/extraction/scheme.ml @@ -47,7 +47,7 @@ let pp_abst st = function module Make = functor(P : Mlpp_param) -> struct -let pp_global r = P.pp_global initial_path r +let pp_global r = P.pp_global [initial_path] r let empty_env () = [], P.globals() (*s Pretty-printing of expressions. *) |