diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-02-14 08:45:57 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-02-14 08:45:57 +0000 |
| commit | b86c3f21e94a1b7098ea0f708944fc637cba5ca4 (patch) | |
| tree | 5fb172942e930986374da0c84bf4ecdb1c0b0b25 | |
| parent | a1cdc4edfb44c1c1ffd2b3b920db9b9d686c9ef6 (diff) | |
forget_abbrev avait l'air faux
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4406 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/btype.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/typing/btype.ml b/typing/btype.ml index c8edfa959..3eafaa997 100644 --- a/typing/btype.ml +++ b/typing/btype.ml @@ -275,8 +275,8 @@ let rec forget_abbrev_rec mem path = assert false | Mcons (path', _, _, rem) when Path.same path path' -> rem - | Mcons (path, v, v', rem) -> - Mcons (path, v, v', forget_abbrev_rec rem path) + | Mcons (path', v, v', rem) -> + Mcons (path', v, v', forget_abbrev_rec rem path) | Mlink mem' -> mem' := forget_abbrev_rec !mem' path; raise Exit |