diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-29 13:24:01 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-29 13:24:01 +0000 |
| commit | 6b09d9235c3d35d0473d0d8a73b6199e0f28745d (patch) | |
| tree | 08fef6a6038ec8cdd97aa839a34b256786d82cc0 /toplevel/trace.ml | |
| parent | 4946407f015e9e71e4029982f6b890e31159e53b (diff) | |
| download | ocaml-6b09d9235c3d35d0473d0d8a73b6199e0f28745d.tar.gz | |
Detecter le cas ou l'on trace deux fois la meme fonction sous divers noms.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@770 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'toplevel/trace.ml')
| -rw-r--r-- | toplevel/trace.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/trace.ml b/toplevel/trace.ml index f9d9ed1f07..a6e3e9f1fc 100644 --- a/toplevel/trace.ml +++ b/toplevel/trace.ml @@ -30,10 +30,10 @@ let traced_functions = ref ([] : traced_function list) (* Check if a function is already traced *) -let is_traced path = +let is_traced clos = let rec is_traced = function - [] -> false - | tf :: rem -> Path.same path tf.path or is_traced rem + [] -> None + | tf :: rem -> if tf.closure == clos then Some tf.path else is_traced rem in is_traced !traced_functions (* Make a copy of a closure *) |