diff options
| author | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2002-02-09 06:44:14 +0000 |
|---|---|---|
| committer | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2002-02-09 06:44:14 +0000 |
| commit | 75a9cfe35cee14dcdb6c364ee25fd9bfeb8d09c3 (patch) | |
| tree | 9d0a9e36fb7171ff533ace1a7a999726ddbd7ac1 | |
| parent | 5a82cfee84f250cba2ccab49dc79c20349201ad7 (diff) | |
La directive #trace ne marchait plus paskeu le test du tag closure était
obsolète.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4370 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | toplevel/topdirs.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/toplevel/topdirs.ml b/toplevel/topdirs.ml index a6b25ba5c..8bc066215 100644 --- a/toplevel/topdirs.ml +++ b/toplevel/topdirs.ml @@ -223,8 +223,7 @@ let dir_trace ppf lid = | _ -> let clos = eval_path path in (* Nothing to do if it's not a closure *) - if Obj.is_block clos && - (Obj.tag clos = 250 || Obj.tag clos = 249) then begin + if Obj.is_block clos && Obj.tag clos = Obj.closure_tag then begin match is_traced clos with | Some opath -> fprintf ppf "%a is already traced (under the name %a).@." |