diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-01-20 17:39:10 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-01-20 17:39:10 +0000 |
| commit | 0dbce74fc87015b7efa837f7529513075b6d73be (patch) | |
| tree | 6cc2612b63b8ef95401f0809ed9af0ce26d0255c /tools/addlabels.ml | |
| parent | 196b2190204e85ce85140ada0d06cb590bd662e8 (diff) | |
| download | ocaml-0dbce74fc87015b7efa837f7529513075b6d73be.tar.gz | |
lazy a la Tolmach
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4291 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/addlabels.ml')
| -rw-r--r-- | tools/addlabels.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/addlabels.ml b/tools/addlabels.ml index c47eebb6ba..c04809b532 100644 --- a/tools/addlabels.ml +++ b/tools/addlabels.ml @@ -252,7 +252,8 @@ let rec add_labels_expr ~text ~values ~classes expr = | Pexp_send (e, _) | Pexp_setinstvar (_, e) | Pexp_letmodule (_, _, e) - | Pexp_assert e -> + | Pexp_assert e + | Pexp_lazy e -> add_labels_rec e | Pexp_record (lst, opt) -> List.iter lst ~f:(fun (_,e) -> add_labels_rec e); |