diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-08-05 23:41:09 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-08-05 23:41:09 +0000 |
| commit | bae927f1f95d0beb55dfc544819749f2b51ce278 (patch) | |
| tree | f7f1b922c48bb7baaee58a7640ef6d6dd8a6e230 | |
| parent | 856b206022d36ff8bd5103cae14ba0d11c78f9fa (diff) | |
corrige PR#1301: bug dans unify_var
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5080 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/ctype.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/typing/ctype.ml b/typing/ctype.ml index 86708bc37..d988824a7 100644 --- a/typing/ctype.ml +++ b/typing/ctype.ml @@ -1701,7 +1701,7 @@ let unify_var env t1 t2 = update_level env t1.level t2; t1.desc <- Tlink t2 with Unify trace -> - raise (Unify ((t1,t2)::trace)) + raise (Unify (expand_trace env ((t1,t2)::trace))) end | _ -> unify env t1 t2 |