Bug#609666: [ocamlviz] pa_ocamlviz: breaks mutually recursive functions

[Török Edwin <edwintorok@gmail.com>]

Package: ocamlviz
Version: 1.01-2
Severity: normal
Tags: upstream
Forwarded:
https://forge.ocamlcore.org/tracker/index.php?func=detail&aid=872&group_id=104&atid=503

--- Please enter the report below this line. ---
See upstream bugreport.

Testcase:
$ let rec foo a =
bar a
and bar a = a+1;;
EOF

$ ocamlc -pp 'camlp4o str.cma
/home/edwin/ocaml/ocamlviz-1.01/camlp4/pa_ocamlviz.cmo' -I +ocamlviz x.ml
File "x.ml", line 2, characters 4-7:
Error: Unbound value bar


--- System information. ---
Architecture: amd64
Kernel:       Linux 2.6.36.2-phenom

Debian Release: 6.0
  500 unstable        ftp.lug.ro
  500 testing         security.debian.org
  500 testing         ftp.ro.debian.org
    1 experimental    ftp.lug.ro

--- Package information. ---
Depends              (Version) | Installed
==============================-+-============
libatk1.0-0        (>= 1.29.3) | 1.30.0-1
libc6                 (>= 2.7) | 2.11.2-7
libcairo2           (>= 1.2.4) | 1.8.10-6
libfontconfig1      (>= 2.8.0) | 2.8.0-2.1
libfreetype6        (>= 2.2.1) | 2.4.2-2.1
libglib2.0-0       (>= 2.16.0) | 2.24.2-1
libgtk2.0-0        (>= 2.12.0) | 2.20.1-2
libpango1.0-0      (>= 1.14.0) | 1.28.3-1
graphviz                       | 2.26.3-5


Recommends                 (Version) | Installed
====================================-+-===========
libocamlviz-ocaml-dev                | 1.01-2


Package's Suggests field is empty.