diff options
Diffstat (limited to 'debugger/loadprinter.ml')
| -rw-r--r-- | debugger/loadprinter.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debugger/loadprinter.ml b/debugger/loadprinter.ml index 49f76a402..0395cfb30 100644 --- a/debugger/loadprinter.ml +++ b/debugger/loadprinter.ml @@ -106,7 +106,7 @@ let match_printer_type desc typename = let ty_arg = Ctype.newvar() in Ctype.unify Env.empty (Ctype.newconstr printer_type [ty_arg]) - (Ctype.instance desc.val_type); + (Ctype.instance Env.empty desc.val_type); Ctype.end_def(); Ctype.generalize ty_arg; ty_arg |