Organisationsocaml-ppxppxlibd22f93 ()macos-homebrew-5.2_arm64_opam-2.2

macos-homebrew-5.2_arm64_opam-2.2

Link Copied
Code Copied

Logs

2024-09-09 09:13.53: New job: test ocaml-ppx/ppxlib https://github.com/ocaml-ppx/ppxlib.git#refs/pull/514/head (d22f931ee2a1e63f53b8191af493e4e7ff63c1c5) (macos-arm64:macos-homebrew-5.2_arm64_opam-2.2)
Base: macos-homebrew-ocaml-5.2
Opam project build


To reproduce locally:


git clone --recursive "https://github.com/ocaml-ppx/ppxlib.git" && cd "ppxlib" && git fetch origin "refs/pull/514/head" && git reset --hard d22f931e
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM macos-homebrew-ocaml-5.2
# macos-homebrew-5.2_arm64_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
RUN ln -f ~/local/bin/opam-2.2 ~/local/bin/opam
RUN opam init --reinit -ni
RUN uname -rs && opam exec -- ocaml -version && opam --version
RUN cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u
RUN mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'
COPY --chown=1000:1000 ppxlib.opam ppxlib-bench.opam ./src/./
COPY --chown=1000:1000 bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam ./src/bench/vendored/ppx_sexp_conv.v0.15.1/
RUN opam pin add -yn ppxlib.dev './src/./' && \
    opam pin add -yn ppxlib-bench.dev './src/./' && \
    opam pin add -yn ppx_sexp_conv './src/bench/vendored/ppx_sexp_conv.v0.15.1/'
ENV DEPS="base.v0.17.1 base-bigarray.base base-domains.base base-nnp.base base-threads.base base-unix.base cinaps.v0.15.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-arm64.1 host-system-other.1 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml_intrinsics_kernel.v0.17.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.17.0 stdlib-shims.0.3.0 yojson.2.2.2"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . ./src
RUN cd ./src && opam exec -- dune build @install @check @runtest && rm -rf _build


END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK


2024-09-09 09:13.53: Using cache hint "ocaml-ppx/ppxlib-macos-homebrew-ocaml-5.2-macos-homebrew-5.2_arm64_opam-2.2-f3dc6138610d164756e3ff5ab6802861"
2024-09-09 09:13.53: Using OBuilder spec:
((from macos-homebrew-ocaml-5.2)
 (comment macos-homebrew-5.2_arm64_opam-2.2)
 (user (uid 1000) (gid 1000))
 (env CLICOLOR_FORCE 1)
 (env OPAMCOLOR always)
 (run (shell "ln -f ~/local/bin/opam-2.2 ~/local/bin/opam"))
 (run (shell "opam init --reinit -ni"))
 (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
 (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
      (network host)
      (shell "cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u"))
 (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./src/./))
 (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
       (dst ./src/bench/vendored/ppx_sexp_conv.v0.15.1/))
 (run (network host)
      (shell  "opam pin add -yn ppxlib.dev './src/./' && \
             \nopam pin add -yn ppxlib-bench.dev './src/./' && \
             \nopam pin add -yn ppx_sexp_conv './src/bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (env DEPS "base.v0.17.1 base-bigarray.base base-domains.base base-nnp.base base-threads.base base-unix.base cinaps.v0.15.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-arm64.1 host-system-other.1 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml_intrinsics_kernel.v0.17.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.17.0 stdlib-shims.0.3.0 yojson.2.2.2")
 (env CI true)
 (env OCAMLCI true)
 (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
      (network host)
      (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
 (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
      (network host)
      (shell "opam install $DEPS"))
 (copy (src .) (dst ./src))
 (run (shell "cd ./src && opam exec -- dune build @install @check @runtest && rm -rf _build"))
)


2024-09-09 09:13.53: Waiting for resource in pool OCluster
2024-09-09 09:13.53: Waiting for worker…
2024-09-09 09:13.53: Got resource from pool OCluster
Building on m1-worker-01
HEAD is now at 258b4a7f Expose Pp_ast.strucure_item and signature_item
HEAD is now at d22f931e Add coalesce_arity to Ast_builder and use it in metaquot


(from macos-homebrew-ocaml-5.2)
2024-09-09 09:13.54 ---> using "9b46fe3d2429f2b9195a02468cb57ac45cfa11fb4a87cb32b5e5375232223327" from cache


/: (comment macos-homebrew-5.2_arm64_opam-2.2)


/: (user (uid 1000) (gid 1000))


/: (env CLICOLOR_FORCE 1)


/: (env OPAMCOLOR always)


/: (run (shell "ln -f ~/local/bin/opam-2.2 ~/local/bin/opam"))
2024-09-09 09:13.54 ---> using "b003627c18f5d873361872ecfa38a9a8b5c86cc26245bef1d152887064c98071" from cache


/: (run (shell "opam init --reinit -ni"))
No configuration file found, using built-in defaults.
Checking for available remotes: rsync and local, git.
  - you won't be able to use mercurial repositories unless you install the hg command on your system.
  - you won't be able to use darcs repositories unless you install the darcs command on your system.


This version of opam requires an update to the layout of /Users/mac1000/.opam from version 2.1 to version 2.2, which can't be reverted.
You may want to back it up before going further.


Continue? [y/n] y
[NOTE] The 'jobs' option was reset, its value was 1 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
           opam option jobs=1 --global
Format upgrade done.


<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] no changes from git+file:///Users/mac1000/opam-repository
2024-09-09 09:13.54 ---> using "408d2cc158c17e89759cf51b146539f00642e287086d5c54f85c33dae9e6a1f9" from cache


/: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Darwin 23.4.0
The OCaml toplevel, version 5.2.0
2.2.0
2024-09-09 09:13.54 ---> using "80c5626e56c363c9237b2d67b74b9ac64751c52cd041543c0fda73b45b911c9a" from cache


/: (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
        (network host)
        (shell "cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
 * branch                  master     -> FETCH_HEAD
   c635641299..b92ae980c0  master     -> origin/master
b92ae980c0 Merge pull request #26439 from rgrinberg/release-re-1.12.0


<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from git+file:///Users/mac1000/opam-repository
default (at git+file:///Users/mac1000/opam-repository): 
    [WARNING] opam is out-of-date. Please consider updating it (https://opam.ocaml.org/doc/Install.html)


Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).


The following packages are not being upgraded because the new versions conflict with other installed packages:
  - ocaml.5.4.0
However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages.
Nothing to do.
# Run eval $(opam env) to update the current shell environment
2024-09-09 09:13.54 ---> using "b9db2edb6f31ad9813226ebff65eb3cb6fc498896209cbd44310ac05e9fa6ef6" from cache


/: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-09-09 09:13.54 ---> using "f87fd4a8645302a05725afbe4febc07b52773e7be7d322f2ce216f2ed2479796" from cache


/: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./src/./))
2024-09-09 09:13.55 ---> using "aea71664738ae25e9e08107370073cabe0112583b8609edbcb1326ff86e041a7" from cache


/: (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
         (dst ./src/bench/vendored/ppx_sexp_conv.v0.15.1/))
2024-09-09 09:13.55 ---> using "84ba237edb3c9b9435e76d762b04155872bb3ae2747ae9e535481e4c97d163c9" from cache


/: (run (network host)
        (shell  "opam pin add -yn ppxlib.dev './src/./' && \
               \nopam pin add -yn ppxlib-bench.dev './src/./' && \
               \nopam pin add -yn ppx_sexp_conv './src/bench/vendored/ppx_sexp_conv.v0.15.1/'"))
[ppxlib.dev] synchronised (file:///Users/mac1000/src)
ppxlib is now pinned to file:///Users/mac1000/src (version dev)
Package ppxlib-bench does not exist, create as a NEW package? [y/n] y
[ppxlib-bench.dev] synchronised (file:///Users/mac1000/src)
ppxlib-bench is now pinned to file:///Users/mac1000/src (version dev)
[ppx_sexp_conv.v0.17.0] synchronised (file:///Users/mac1000/src/bench/vendored/ppx_sexp_conv.v0.15.1)
ppx_sexp_conv is now pinned to file:///Users/mac1000/src/bench/vendored/ppx_sexp_conv.v0.15.1 (version v0.15.0)
2024-09-09 09:13.55 ---> using "7b6c91bdd015758964f41d63b86a590727a5f4a82b78d206e828aa280395cc9e" from cache


/: (env DEPS "base.v0.17.1 base-bigarray.base base-domains.base base-nnp.base base-threads.base base-unix.base cinaps.v0.15.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-arm64.1 host-system-other.1 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml_intrinsics_kernel.v0.17.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.12.0 seq.base sexplib0.v0.17.0 stdlib-shims.0.3.0 yojson.2.2.2")


/: (env CI true)


/: (env OCAMLCI true)


/: (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
        (network host)
        (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
+ /opt/homebrew/bin/brew "update"
- ==> Updating Homebrew...
- Already up-to-date.


<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[ppxlib.dev] synchronised (no changes)
[ppxlib-bench.dev] synchronised (no changes)


[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 3).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.2.0).
[NOTE] Package ocaml is already installed (current version is 5.2.0).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-arm64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-nnp is already installed (current version is base).
[NOTE] Package base-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
2024-09-09 09:13.55 ---> using "83b055488aa0ff195d53db3020dcd084f0e75a6490752f92ea6e8f27fb7b05f4" from cache


/: (run (cache (opam-archives (target /Users/mac1000/.opam/download-cache)) (homebrew (target /Users/mac1000/Library/Caches/Homebrew)))
        (network host)
        (shell "opam install $DEPS"))
[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 3).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.2.0).
[NOTE] Package ocaml is already installed (current version is 5.2.0).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-arm64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-nnp is already installed (current version is base).
[NOTE] Package base-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following actions will be performed:
=== install 14 packages
  - install base                    v0.17.1
  - install cinaps                  v0.15.1
  - install csexp                   1.5.2
  - install dune                    3.16.0
  - install dune-configurator       3.16.0
  - install ocaml-compiler-libs     v0.17.0
  - install ocaml_intrinsics_kernel v0.17.1
  - install ocamlfind               1.9.6
  - install ppx_derivers            1.2.1
  - install re                      1.12.0
  - install seq                     base
  - install sexplib0                v0.17.0
  - install stdlib-shims            0.3.0
  - install yojson                  2.2.2


<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved cinaps.v0.15.1  (cached)
-> retrieved csexp.1.5.2  (cached)
-> retrieved base.v0.17.1  (cached)
-> retrieved ocaml-compiler-libs.v0.17.0  (cached)
-> retrieved ocaml_intrinsics_kernel.v0.17.1  (cached)
-> retrieved ppx_derivers.1.2.1  (cached)
-> retrieved ocamlfind.1.9.6  (cached)
-> retrieved seq.base  (cached)
-> installed seq.base
-> retrieved sexplib0.v0.17.0  (cached)
-> retrieved re.1.12.0  (cached)
-> retrieved stdlib-shims.0.3.0  (cached)
-> retrieved yojson.2.2.2  (cached)
-> retrieved dune.3.16.0, dune-configurator.3.16.0  (cached)
-> installed ocamlfind.1.9.6
-> installed dune.3.16.0
-> installed ppx_derivers.1.2.1
-> installed stdlib-shims.0.3.0
-> installed ocaml_intrinsics_kernel.v0.17.1
-> installed csexp.1.5.2
-> installed yojson.2.2.2
-> installed sexplib0.v0.17.0
-> installed re.1.12.0
-> installed ocaml-compiler-libs.v0.17.0
-> installed cinaps.v0.15.1
-> installed dune-configurator.3.16.0
-> installed base.v0.17.1
Done.
# Run eval $(opam env) to update the current shell environment
2024-09-09 09:13.55 ---> using "2c84ad84535ac870f8e6a2d5009d9d34b6892d84d37f4b11de2ed9d6530ceadf" from cache


/: (copy (src .) (dst ./src))
2024-09-09 09:13.56 ---> saved as "574faf1ca1c80fcb006903adae2d7e19ce7ec987910bdb36bea437f5763d603e"


/: (run (shell "cd ./src && opam exec -- dune build @install @check @runtest && rm -rf _build"))
(cd _build/default && .ppx/3134a5298fb2c80808cc94dd434856cb/ppx.exe -deriving-keep-w32=impl --cookie 'library-name="ppxlib_ast"' --impl ast/ast.ml -corrected-suffix .lint-corrected -diff-cmd - -null)
File "ast/ast.ml", lines 1086-2416, characters 0-5:
1086 | class virtual map =
1087 |   object (self)
1088 |     method virtual bool : bool -> bool
1089 |     method virtual char : char -> char
1090 |     method virtual int : int -> int
...
2413 |             Pdir_bool a
2414 | 
2415 |     method cases : cases -> cases = self#list self#case
2416 |   end
Error: ppxlib: the corrected code doesn't round-trip.
This is probably a bug in the OCaml printer:
647c647,786
<                       (Pexp_function () ()
---
>                       (Pexp_function
>                        (((pparam_loc
>                           ((loc_start
>                             ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                              (pos_cnum -1)))
>                            (loc_end
>                             ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                              (pos_cnum -1)))
>                            (loc_ghost true)))
>                          (pparam_desc
>                           (Pparam_val Nolabel ()
>                            ((ppat_desc
>                              (Ppat_record
>                               ((((txt (Lident pos_fname))
>                                  (loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true))))
>                                 ((ppat_desc
>                                   (Ppat_var
>                                    ((txt pos_fname)
>                                     (loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true))))))
>                                  (ppat_loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true)))
>                                  (ppat_loc_stack ()) (ppat_attributes ())))
>                                (((txt (Lident pos_lnum))
>                                  (loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true))))
>                                 ((ppat_desc
>                                   (Ppat_var
>                                    ((txt pos_lnum)
>                                     (loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true))))))
>                                  (ppat_loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true)))
>                                  (ppat_loc_stack ()) (ppat_attributes ())))
>                                (((txt (Lident pos_bol))
>                                  (loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true))))
>                                 ((ppat_desc
>                                   (Ppat_var
>                                    ((txt pos_bol)
>                                     (loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true))))))
>                                  (ppat_loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true)))
>                                  (ppat_loc_stack ()) (ppat_attributes ())))
>                                (((txt (Lident pos_cnum))
>                                  (loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true))))
>                                 ((ppat_desc
>                                   (Ppat_var
>                                    ((txt pos_cnum)
>                                     (loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true))))))
>                                  (ppat_loc
>                                   ((loc_start
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_end
>                                     ((pos_fname _none_) (pos_lnum 1)
>                                      (pos_bol 0) (pos_cnum -1)))
>                                    (loc_ghost true)))
>                                  (ppat_loc_stack ()) (ppat_attributes ()))))
>                               Closed))
>                             (ppat_loc
>                              ((loc_start
>                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                 (pos_cnum -1)))
>                               (loc_end
>                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                 (pos_cnum -1)))
>                               (loc_ghost true)))
>                             (ppat_loc_stack ()) (ppat_attributes ()))))))
>                        ()
650,674c789,818
<                           (Pexp_function
<                            (((pparam_loc
<                               ((loc_start
<                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                                  (pos_cnum -1)))
<                                (loc_end
<                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                                  (pos_cnum -1)))
<                                (loc_ghost true)))
<                              (pparam_desc
<                               (Pparam_val Nolabel ()
<                                ((ppat_desc
<                                  (Ppat_record
<                                   ((((txt (Lident pos_fname))
<                                      (loc
<                                       ((loc_start
<                                         ((pos_fname _none_) (pos_lnum 1)
<                                          (pos_bol 0) (pos_cnum -1)))
<                                        (loc_end
<                                         ((pos_fname _none_) (pos_lnum 1)
<                                          (pos_bol 0) (pos_cnum -1)))
<                                        (loc_ghost true))))
<                                     ((ppat_desc
<                                       (Ppat_var
<                                        ((txt pos_fname)
---
>                           (Pexp_let Nonrecursive
>                            (((pvb_pat
>                               ((ppat_desc
>                                 (Ppat_var
>                                  ((txt pos_fname)
>                                   (loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true))))))
>                                (ppat_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (ppat_loc_stack ()) (ppat_attributes ())))
>                              (pvb_expr
>                               ((pexp_desc
>                                 (Pexp_apply
>                                  ((pexp_desc
>                                    (Pexp_send
>                                     ((pexp_desc
>                                       (Pexp_ident
>                                        ((txt (Lident self))
683c827
<                                      (ppat_loc
---
>                                      (pexp_loc
691,693c835,837
<                                      (ppat_loc_stack ())
<                                      (ppat_attributes ())))
<                                    (((txt (Lident pos_lnum))
---
>                                      (pexp_loc_stack ())
>                                      (pexp_attributes ()))
>                                     ((txt string)
701,723c845,899
<                                        (loc_ghost true))))
<                                     ((ppat_desc
<                                       (Ppat_var
<                                        ((txt pos_lnum)
<                                         (loc
<                                          ((loc_start
<                                            ((pos_fname _none_) (pos_lnum 1)
<                                             (pos_bol 0) (pos_cnum -1)))
<                                           (loc_end
<                                            ((pos_fname _none_) (pos_lnum 1)
<                                             (pos_bol 0) (pos_cnum -1)))
<                                           (loc_ghost true))))))
<                                      (ppat_loc
<                                       ((loc_start
<                                         ((pos_fname _none_) (pos_lnum 1)
<                                          (pos_bol 0) (pos_cnum -1)))
<                                        (loc_end
<                                         ((pos_fname _none_) (pos_lnum 1)
<                                          (pos_bol 0) (pos_cnum -1)))
<                                        (loc_ghost true)))
<                                      (ppat_loc_stack ())
<                                      (ppat_attributes ())))
<                                    (((txt (Lident pos_bol))
---
>                                        (loc_ghost true))))))
>                                   (pexp_loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true)))
>                                   (pexp_loc_stack ()) (pexp_attributes ()))
>                                  ((Nolabel
>                                    ((pexp_desc
>                                      (Pexp_ident
>                                       ((txt (Lident pos_fname))
>                                        (loc
>                                         ((loc_start
>                                           ((pos_fname _none_) (pos_lnum 1)
>                                            (pos_bol 0) (pos_cnum -1)))
>                                          (loc_end
>                                           ((pos_fname _none_) (pos_lnum 1)
>                                            (pos_bol 0) (pos_cnum -1)))
>                                          (loc_ghost true))))))
>                                     (pexp_loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true)))
>                                     (pexp_loc_stack ()) (pexp_attributes ()))))))
>                                (pexp_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (pexp_loc_stack ()) (pexp_attributes ())))
>                              (pvb_constraint ()) (pvb_attributes ())
>                              (pvb_loc
>                               ((loc_start
>                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                  (pos_cnum -1)))
>                                (loc_end
>                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                  (pos_cnum -1)))
>                                (loc_ghost true)))))
>                            ((pexp_desc
>                              (Pexp_let Nonrecursive
>                               (((pvb_pat
>                                  ((ppat_desc
>                                    (Ppat_var
>                                     ((txt pos_lnum)
731,734c907,945
<                                        (loc_ghost true))))
<                                     ((ppat_desc
<                                       (Ppat_var
<                                        ((txt pos_bol)
---
>                                        (loc_ghost true))))))
>                                   (ppat_loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true)))
>                                   (ppat_loc_stack ()) (ppat_attributes ())))
>                                 (pvb_expr
>                                  ((pexp_desc
>                                    (Pexp_apply
>                                     ((pexp_desc
>                                       (Pexp_send
>                                        ((pexp_desc
>                                          (Pexp_ident
>                                           ((txt (Lident self))
>                                            (loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true))))))
>                                         (pexp_loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true)))
>                                         (pexp_loc_stack ())
>                                         (pexp_attributes ()))
>                                        ((txt int)
743c954
<                                      (ppat_loc
---
>                                      (pexp_loc
751,761c962,1006
<                                      (ppat_loc_stack ())
<                                      (ppat_attributes ())))
<                                    (((txt (Lident pos_cnum))
<                                      (loc
<                                       ((loc_start
<                                         ((pos_fname _none_) (pos_lnum 1)
<                                          (pos_bol 0) (pos_cnum -1)))
<                                        (loc_end
<                                         ((pos_fname _none_) (pos_lnum 1)
<                                          (pos_bol 0) (pos_cnum -1)))
<                                        (loc_ghost true))))
---
>                                      (pexp_loc_stack ())
>                                      (pexp_attributes ()))
>                                     ((Nolabel
>                                       ((pexp_desc
>                                         (Pexp_ident
>                                          ((txt (Lident pos_lnum))
>                                           (loc
>                                            ((loc_start
>                                              ((pos_fname _none_) (pos_lnum 1)
>                                               (pos_bol 0) (pos_cnum -1)))
>                                             (loc_end
>                                              ((pos_fname _none_) (pos_lnum 1)
>                                               (pos_bol 0) (pos_cnum -1)))
>                                             (loc_ghost true))))))
>                                        (pexp_loc
>                                         ((loc_start
>                                           ((pos_fname _none_) (pos_lnum 1)
>                                            (pos_bol 0) (pos_cnum -1)))
>                                          (loc_end
>                                           ((pos_fname _none_) (pos_lnum 1)
>                                            (pos_bol 0) (pos_cnum -1)))
>                                          (loc_ghost true)))
>                                        (pexp_loc_stack ())
>                                        (pexp_attributes ()))))))
>                                   (pexp_loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true)))
>                                   (pexp_loc_stack ()) (pexp_attributes ())))
>                                 (pvb_constraint ()) (pvb_attributes ())
>                                 (pvb_loc
>                                  ((loc_start
>                                    ((pos_fname _none_) (pos_lnum 1)
>                                     (pos_bol 0) (pos_cnum -1)))
>                                   (loc_end
>                                    ((pos_fname _none_) (pos_lnum 1)
>                                     (pos_bol 0) (pos_cnum -1)))
>                                   (loc_ghost true)))))
>                               ((pexp_desc
>                                 (Pexp_let Nonrecursive
>                                  (((pvb_pat
764c1009
<                                        ((txt pos_cnum)
---
>                                        ((txt pos_bol)
782,865c1027,1030
<                                      (ppat_attributes ()))))
<                                   Closed))
<                                 (ppat_loc
<                                  ((loc_start
<                                    ((pos_fname _none_) (pos_lnum 1)
<                                     (pos_bol 0) (pos_cnum -1)))
<                                   (loc_end
<                                    ((pos_fname _none_) (pos_lnum 1)
<                                     (pos_bol 0) (pos_cnum -1)))
<                                   (loc_ghost true)))
<                                 (ppat_loc_stack ()) (ppat_attributes ()))))))
<                            ()
<                            (Pfunction_body
<                             ((pexp_desc
<                               (Pexp_let Nonrecursive
<                                (((pvb_pat
<                                   ((ppat_desc
<                                     (Ppat_var
<                                      ((txt pos_fname)
<                                       (loc
<                                        ((loc_start
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_end
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_ghost true))))))
<                                    (ppat_loc
<                                     ((loc_start
<                                       ((pos_fname _none_) (pos_lnum 1)
<                                        (pos_bol 0) (pos_cnum -1)))
<                                      (loc_end
<                                       ((pos_fname _none_) (pos_lnum 1)
<                                        (pos_bol 0) (pos_cnum -1)))
<                                      (loc_ghost true)))
<                                    (ppat_loc_stack ()) (ppat_attributes ())))
<                                  (pvb_expr
<                                   ((pexp_desc
<                                     (Pexp_apply
<                                      ((pexp_desc
<                                        (Pexp_send
<                                         ((pexp_desc
<                                           (Pexp_ident
<                                            ((txt (Lident self))
<                                             (loc
<                                              ((loc_start
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_end
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_ghost true))))))
<                                          (pexp_loc
<                                           ((loc_start
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_end
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_ghost true)))
<                                          (pexp_loc_stack ())
<                                          (pexp_attributes ()))
<                                         ((txt string)
<                                          (loc
<                                           ((loc_start
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_end
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_ghost true))))))
<                                       (pexp_loc
<                                        ((loc_start
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_end
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_ghost true)))
<                                       (pexp_loc_stack ())
<                                       (pexp_attributes ()))
<                                      ((Nolabel
---
>                                      (ppat_attributes ())))
>                                    (pvb_expr
>                                     ((pexp_desc
>                                       (Pexp_apply
867,868c1032,1058
<                                          (Pexp_ident
<                                           ((txt (Lident pos_fname))
---
>                                          (Pexp_send
>                                           ((pexp_desc
>                                             (Pexp_ident
>                                              ((txt (Lident self))
>                                               (loc
>                                                ((loc_start
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_end
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_ghost true))))))
>                                            (pexp_loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true)))
>                                            (pexp_loc_stack ())
>                                            (pexp_attributes ()))
>                                           ((txt int)
888,889c1078,1114
<                                         (pexp_attributes ()))))))
<                                    (pexp_loc
---
>                                         (pexp_attributes ()))
>                                        ((Nolabel
>                                          ((pexp_desc
>                                            (Pexp_ident
>                                             ((txt (Lident pos_bol))
>                                              (loc
>                                               ((loc_start
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_end
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_ghost true))))))
>                                           (pexp_loc
>                                            ((loc_start
>                                              ((pos_fname _none_) (pos_lnum 1)
>                                               (pos_bol 0) (pos_cnum -1)))
>                                             (loc_end
>                                              ((pos_fname _none_) (pos_lnum 1)
>                                               (pos_bol 0) (pos_cnum -1)))
>                                             (loc_ghost true)))
>                                           (pexp_loc_stack ())
>                                           (pexp_attributes ()))))))
>                                      (pexp_loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true)))
>                                      (pexp_loc_stack ())
>                                      (pexp_attributes ())))
>                                    (pvb_constraint ()) (pvb_attributes ())
>                                    (pvb_loc
896,996c1121,1128
<                                      (loc_ghost true)))
<                                    (pexp_loc_stack ()) (pexp_attributes ())))
<                                  (pvb_constraint ()) (pvb_attributes ())
<                                  (pvb_loc
<                                   ((loc_start
<                                     ((pos_fname _none_) (pos_lnum 1)
<                                      (pos_bol 0) (pos_cnum -1)))
<                                    (loc_end
<                                     ((pos_fname _none_) (pos_lnum 1)
<                                      (pos_bol 0) (pos_cnum -1)))
<                                    (loc_ghost true)))))
<                                ((pexp_desc
<                                  (Pexp_let Nonrecursive
<                                   (((pvb_pat
<                                      ((ppat_desc
<                                        (Ppat_var
<                                         ((txt pos_lnum)
<                                          (loc
<                                           ((loc_start
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_end
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_ghost true))))))
<                                       (ppat_loc
<                                        ((loc_start
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_end
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_ghost true)))
<                                       (ppat_loc_stack ())
<                                       (ppat_attributes ())))
<                                     (pvb_expr
<                                      ((pexp_desc
<                                        (Pexp_apply
<                                         ((pexp_desc
<                                           (Pexp_send
<                                            ((pexp_desc
<                                              (Pexp_ident
<                                               ((txt (Lident self))
<                                                (loc
<                                                 ((loc_start
<                                                   ((pos_fname _none_)
<                                                    (pos_lnum 1) (pos_bol 0)
<                                                    (pos_cnum -1)))
<                                                  (loc_end
<                                                   ((pos_fname _none_)
<                                                    (pos_lnum 1) (pos_bol 0)
<                                                    (pos_cnum -1)))
<                                                  (loc_ghost true))))))
<                                             (pexp_loc
<                                              ((loc_start
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_end
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_ghost true)))
<                                             (pexp_loc_stack ())
<                                             (pexp_attributes ()))
<                                            ((txt int)
<                                             (loc
<                                              ((loc_start
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_end
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_ghost true))))))
<                                          (pexp_loc
<                                           ((loc_start
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_end
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_ghost true)))
<                                          (pexp_loc_stack ())
<                                          (pexp_attributes ()))
<                                         ((Nolabel
<                                           ((pexp_desc
<                                             (Pexp_ident
<                                              ((txt (Lident pos_lnum))
<                                               (loc
<                                                ((loc_start
<                                                  ((pos_fname _none_)
<                                                   (pos_lnum 1) (pos_bol 0)
<                                                   (pos_cnum -1)))
<                                                 (loc_end
<                                                  ((pos_fname _none_)
<                                                   (pos_lnum 1) (pos_bol 0)
<                                                   (pos_cnum -1)))
<                                                 (loc_ghost true))))))
<                                            (pexp_loc
---
>                                      (loc_ghost true)))))
>                                  ((pexp_desc
>                                    (Pexp_let Nonrecursive
>                                     (((pvb_pat
>                                        ((ppat_desc
>                                          (Ppat_var
>                                           ((txt pos_cnum)
>                                            (loc
1005,1303c1137,1152
<                                              (loc_ghost true)))
<                                            (pexp_loc_stack ())
<                                            (pexp_attributes ()))))))
<                                       (pexp_loc
<                                        ((loc_start
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_end
<                                          ((pos_fname _none_) (pos_lnum 1)
<                                           (pos_bol 0) (pos_cnum -1)))
<                                         (loc_ghost true)))
<                                       (pexp_loc_stack ())
<                                       (pexp_attributes ())))
<                                     (pvb_constraint ()) (pvb_attributes ())
<                                     (pvb_loc
<                                      ((loc_start
<                                        ((pos_fname _none_) (pos_lnum 1)
<                                         (pos_bol 0) (pos_cnum -1)))
<                                       (loc_end
<                                        ((pos_fname _none_) (pos_lnum 1)
<                                         (pos_bol 0) (pos_cnum -1)))
<                                       (loc_ghost true)))))
<                                   ((pexp_desc
<                                     (Pexp_let Nonrecursive
<                                      (((pvb_pat
<                                         ((ppat_desc
<                                           (Ppat_var
<                                            ((txt pos_bol)
<                                             (loc
<                                              ((loc_start
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_end
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_ghost true))))))
<                                          (ppat_loc
<                                           ((loc_start
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_end
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_ghost true)))
<                                          (ppat_loc_stack ())
<                                          (ppat_attributes ())))
<                                        (pvb_expr
<                                         ((pexp_desc
<                                           (Pexp_apply
<                                            ((pexp_desc
<                                              (Pexp_send
<                                               ((pexp_desc
<                                                 (Pexp_ident
<                                                  ((txt (Lident self))
<                                                   (loc
<                                                    ((loc_start
<                                                      ((pos_fname _none_)
<                                                       (pos_lnum 1)
<                                                       (pos_bol 0)
<                                                       (pos_cnum -1)))
<                                                     (loc_end
<                                                      ((pos_fname _none_)
<                                                       (pos_lnum 1)
<                                                       (pos_bol 0)
<                                                       (pos_cnum -1)))
<                                                     (loc_ghost true))))))
<                                                (pexp_loc
<                                                 ((loc_start
<                                                   ((pos_fname _none_)
<                                                    (pos_lnum 1) (pos_bol 0)
<                                                    (pos_cnum -1)))
<                                                  (loc_end
<                                                   ((pos_fname _none_)
<                                                    (pos_lnum 1) (pos_bol 0)
<                                                    (pos_cnum -1)))
<                                                  (loc_ghost true)))
<                                                (pexp_loc_stack ())
<                                                (pexp_attributes ()))
<                                               ((txt int)
<                                                (loc
<                                                 ((loc_start
<                                                   ((pos_fname _none_)
<                                                    (pos_lnum 1) (pos_bol 0)
<                                                    (pos_cnum -1)))
<                                                  (loc_end
<                                                   ((pos_fname _none_)
<                                                    (pos_lnum 1) (pos_bol 0)
<                                                    (pos_cnum -1)))
<                                                  (loc_ghost true))))))
<                                             (pexp_loc
<                                              ((loc_start
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_end
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_ghost true)))
<                                             (pexp_loc_stack ())
<                                             (pexp_attributes ()))
<                                            ((Nolabel
<                                              ((pexp_desc
<                                                (Pexp_ident
<                                                 ((txt (Lident pos_bol))
<                                                  (loc
<                                                   ((loc_start
<                                                     ((pos_fname _none_)
<                                                      (pos_lnum 1) (pos_bol 0)
<                                                      (pos_cnum -1)))
<                                                    (loc_end
<                                                     ((pos_fname _none_)
<                                                      (pos_lnum 1) (pos_bol 0)
<                                                      (pos_cnum -1)))
<                                                    (loc_ghost true))))))
<                                               (pexp_loc
<                                                ((loc_start
<                                                  ((pos_fname _none_)
<                                                   (pos_lnum 1) (pos_bol 0)
<                                                   (pos_cnum -1)))
<                                                 (loc_end
<                                                  ((pos_fname _none_)
<                                                   (pos_lnum 1) (pos_bol 0)
<                                                   (pos_cnum -1)))
<                                                 (loc_ghost true)))
<                                               (pexp_loc_stack ())
<                                               (pexp_attributes ()))))))
<                                          (pexp_loc
<                                           ((loc_start
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_end
<                                             ((pos_fname _none_) (pos_lnum 1)
<                                              (pos_bol 0) (pos_cnum -1)))
<                                            (loc_ghost true)))
<                                          (pexp_loc_stack ())
<                                          (pexp_attributes ())))
<                                        (pvb_constraint ())
<                                        (pvb_attributes ())
<                                        (pvb_loc
<                                         ((loc_start
<                                           ((pos_fname _none_) (pos_lnum 1)
<                                            (pos_bol 0) (pos_cnum -1)))
<                                          (loc_end
<                                           ((pos_fname _none_) (pos_lnum 1)
<                                            (pos_bol 0) (pos_cnum -1)))
<                                          (loc_ghost true)))))
<                                      ((pexp_desc
<                                        (Pexp_let Nonrecursive
<                                         (((pvb_pat
<                                            ((ppat_desc
<                                              (Ppat_var
<                                               ((txt pos_cnum)
<                                                (loc
...TRUNCATED BY DUNE...
<                                                    (pos_cnum -1)))
<                                                  (loc_ghost true))))))
<                                             (pexp_loc
<                                              ((loc_start
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_end
<                                                ((pos_fname _none_)
<                                                 (pos_lnum 1) (pos_bol 0)
<                                                 (pos_cnum -1)))
<                                               (loc_ghost true)))
<                                             (pexp_loc_stack ())
<                                             (pexp_attributes ()))
<                                            ((Nolabel
---
>                                         (ppat_attributes ())))
>                                       (pvb_expr
>                                        ((pexp_desc
>                                          (Pexp_apply
>                                           ((pexp_desc
>                                             (Pexp_send
135170c123878
<                                                 ((txt (Lident a))
---
>                                                 ((txt (Lident self))
135192c123900,124084
<                                               (pexp_attributes ()))))))
---
>                                               (pexp_attributes ()))
>                                              ((txt option)
>                                               (loc
>                                                ((loc_start
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_end
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_ghost true))))))
>                                            (pexp_loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true)))
>                                            (pexp_loc_stack ())
>                                            (pexp_attributes ()))
>                                           ((Nolabel
>                                             ((pexp_desc
>                                               (Pexp_send
>                                                ((pexp_desc
>                                                  (Pexp_ident
>                                                   ((txt (Lident self))
>                                                    (loc
>                                                     ((loc_start
>                                                       ((pos_fname _none_)
>                                                        (pos_lnum 1)
>                                                        (pos_bol 0)
>                                                        (pos_cnum -1)))
>                                                      (loc_end
>                                                       ((pos_fname _none_)
>                                                        (pos_lnum 1)
>                                                        (pos_bol 0)
>                                                        (pos_cnum -1)))
>                                                      (loc_ghost true))))))
>                                                 (pexp_loc
>                                                  ((loc_start
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_end
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_ghost true)))
>                                                 (pexp_loc_stack ())
>                                                 (pexp_attributes ()))
>                                                ((txt char)
>                                                 (loc
>                                                  ((loc_start
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_end
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_ghost true))))))
>                                              (pexp_loc
>                                               ((loc_start
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_end
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_ghost true)))
>                                              (pexp_loc_stack ())
>                                              (pexp_attributes ())))
>                                            (Nolabel
>                                             ((pexp_desc
>                                               (Pexp_ident
>                                                ((txt (Lident b))
>                                                 (loc
>                                                  ((loc_start
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_end
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_ghost true))))))
>                                              (pexp_loc
>                                               ((loc_start
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_end
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_ghost true)))
>                                              (pexp_loc_stack ())
>                                              (pexp_attributes ()))))))
>                                         (pexp_loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true)))
>                                         (pexp_loc_stack ())
>                                         (pexp_attributes ())))
>                                       (pvb_constraint ()) (pvb_attributes ())
>                                       (pvb_loc
>                                        ((loc_start
>                                          ((pos_fname _none_) (pos_lnum 1)
>                                           (pos_bol 0) (pos_cnum -1)))
>                                         (loc_end
>                                          ((pos_fname _none_) (pos_lnum 1)
>                                           (pos_bol 0) (pos_cnum -1)))
>                                         (loc_ghost true)))))
>                                     ((pexp_desc
>                                       (Pexp_construct
>                                        ((txt (Lident Pdir_int))
>                                         (loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true))))
>                                        (((pexp_desc
>                                           (Pexp_tuple
>                                            (((pexp_desc
>                                               (Pexp_ident
>                                                ((txt (Lident a))
>                                                 (loc
>                                                  ((loc_start
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_end
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_ghost true))))))
>                                              (pexp_loc
>                                               ((loc_start
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_end
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_ghost true)))
>                                              (pexp_loc_stack ())
>                                              (pexp_attributes ()))
>                                             ((pexp_desc
>                                               (Pexp_ident
>                                                ((txt (Lident b))
>                                                 (loc
>                                                  ((loc_start
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_end
>                                                    ((pos_fname _none_)
>                                                     (pos_lnum 1) (pos_bol 0)
>                                                     (pos_cnum -1)))
>                                                   (loc_ghost true))))))
>                                              (pexp_loc
>                                               ((loc_start
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_end
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_ghost true)))
>                                              (pexp_loc_stack ())
>                                              (pexp_attributes ())))))
135202,135205c124094,124139
<                                          (pexp_attributes ())))
<                                        (pvb_constraint ())
<                                        (pvb_attributes ())
<                                        (pvb_loc
---
>                                          (pexp_attributes ())))))
>                                      (pexp_loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true)))
>                                      (pexp_loc_stack ())
>                                      (pexp_attributes ()))))
>                                   (pexp_loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true)))
>                                   (pexp_loc_stack ()) (pexp_attributes ()))))
>                                (pexp_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (pexp_loc_stack ()) (pexp_attributes ()))))
>                             ((pc_lhs
>                               ((ppat_desc
>                                 (Ppat_construct
>                                  ((txt (Lident Pdir_ident))
>                                   (loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true))))
>                                  ((()
>                                    ((ppat_desc
>                                      (Ppat_var
>                                       ((txt a)
>                                        (loc
135212,135215c124146,124298
<                                          (loc_ghost true)))))
<                                      ((pexp_desc
<                                        (Pexp_construct
<                                         ((txt (Lident Pdir_bool))
---
>                                          (loc_ghost true))))))
>                                     (ppat_loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true)))
>                                     (ppat_loc_stack ()) (ppat_attributes ()))))))
>                                (ppat_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (ppat_loc_stack ()) (ppat_attributes ())))
>                              (pc_guard ())
>                              (pc_rhs
>                               ((pexp_desc
>                                 (Pexp_let Nonrecursive
>                                  (((pvb_pat
>                                     ((ppat_desc
>                                       (Ppat_var
>                                        ((txt a)
>                                         (loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true))))))
>                                      (ppat_loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true)))
>                                      (ppat_loc_stack ())
>                                      (ppat_attributes ())))
>                                    (pvb_expr
>                                     ((pexp_desc
>                                       (Pexp_apply
>                                        ((pexp_desc
>                                          (Pexp_send
>                                           ((pexp_desc
>                                             (Pexp_ident
>                                              ((txt (Lident self))
>                                               (loc
>                                                ((loc_start
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_end
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_ghost true))))))
>                                            (pexp_loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true)))
>                                            (pexp_loc_stack ())
>                                            (pexp_attributes ()))
>                                           ((txt longident)
>                                            (loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true))))))
>                                         (pexp_loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true)))
>                                         (pexp_loc_stack ())
>                                         (pexp_attributes ()))
>                                        ((Nolabel
>                                          ((pexp_desc
>                                            (Pexp_ident
>                                             ((txt (Lident a))
>                                              (loc
>                                               ((loc_start
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_end
>                                                 ((pos_fname _none_)
>                                                  (pos_lnum 1) (pos_bol 0)
>                                                  (pos_cnum -1)))
>                                                (loc_ghost true))))))
>                                           (pexp_loc
>                                            ((loc_start
>                                              ((pos_fname _none_) (pos_lnum 1)
>                                               (pos_bol 0) (pos_cnum -1)))
>                                             (loc_end
>                                              ((pos_fname _none_) (pos_lnum 1)
>                                               (pos_bol 0) (pos_cnum -1)))
>                                             (loc_ghost true)))
>                                           (pexp_loc_stack ())
>                                           (pexp_attributes ()))))))
>                                      (pexp_loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true)))
>                                      (pexp_loc_stack ())
>                                      (pexp_attributes ())))
>                                    (pvb_constraint ()) (pvb_attributes ())
>                                    (pvb_loc
>                                     ((loc_start
>                                       ((pos_fname _none_) (pos_lnum 1)
>                                        (pos_bol 0) (pos_cnum -1)))
>                                      (loc_end
>                                       ((pos_fname _none_) (pos_lnum 1)
>                                        (pos_bol 0) (pos_cnum -1)))
>                                      (loc_ghost true)))))
>                                  ((pexp_desc
>                                    (Pexp_construct
>                                     ((txt (Lident Pdir_ident))
>                                      (loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true))))
>                                     (((pexp_desc
>                                        (Pexp_ident
>                                         ((txt (Lident a))
135223,135224c124306,124455
<                                            (loc_ghost true))))
<                                         (((pexp_desc
---
>                                            (loc_ghost true))))))
>                                       (pexp_loc
>                                        ((loc_start
>                                          ((pos_fname _none_) (pos_lnum 1)
>                                           (pos_bol 0) (pos_cnum -1)))
>                                         (loc_end
>                                          ((pos_fname _none_) (pos_lnum 1)
>                                           (pos_bol 0) (pos_cnum -1)))
>                                         (loc_ghost true)))
>                                       (pexp_loc_stack ())
>                                       (pexp_attributes ())))))
>                                   (pexp_loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true)))
>                                   (pexp_loc_stack ()) (pexp_attributes ()))))
>                                (pexp_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (pexp_loc_stack ()) (pexp_attributes ()))))
>                             ((pc_lhs
>                               ((ppat_desc
>                                 (Ppat_construct
>                                  ((txt (Lident Pdir_bool))
>                                   (loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true))))
>                                  ((()
>                                    ((ppat_desc
>                                      (Ppat_var
>                                       ((txt a)
>                                        (loc
>                                         ((loc_start
>                                           ((pos_fname _none_) (pos_lnum 1)
>                                            (pos_bol 0) (pos_cnum -1)))
>                                          (loc_end
>                                           ((pos_fname _none_) (pos_lnum 1)
>                                            (pos_bol 0) (pos_cnum -1)))
>                                          (loc_ghost true))))))
>                                     (ppat_loc
>                                      ((loc_start
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_end
>                                        ((pos_fname _none_) (pos_lnum 1)
>                                         (pos_bol 0) (pos_cnum -1)))
>                                       (loc_ghost true)))
>                                     (ppat_loc_stack ()) (ppat_attributes ()))))))
>                                (ppat_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (ppat_loc_stack ()) (ppat_attributes ())))
>                              (pc_guard ())
>                              (pc_rhs
>                               ((pexp_desc
>                                 (Pexp_let Nonrecursive
>                                  (((pvb_pat
>                                     ((ppat_desc
>                                       (Ppat_var
>                                        ((txt a)
>                                         (loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true))))))
>                                      (ppat_loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true)))
>                                      (ppat_loc_stack ())
>                                      (ppat_attributes ())))
>                                    (pvb_expr
>                                     ((pexp_desc
>                                       (Pexp_apply
>                                        ((pexp_desc
>                                          (Pexp_send
>                                           ((pexp_desc
>                                             (Pexp_ident
>                                              ((txt (Lident self))
>                                               (loc
>                                                ((loc_start
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_end
>                                                  ((pos_fname _none_)
>                                                   (pos_lnum 1) (pos_bol 0)
>                                                   (pos_cnum -1)))
>                                                 (loc_ghost true))))))
>                                            (pexp_loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true)))
>                                            (pexp_loc_stack ())
>                                            (pexp_attributes ()))
>                                           ((txt bool)
>                                            (loc
>                                             ((loc_start
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_end
>                                               ((pos_fname _none_)
>                                                (pos_lnum 1) (pos_bol 0)
>                                                (pos_cnum -1)))
>                                              (loc_ghost true))))))
>                                         (pexp_loc
>                                          ((loc_start
>                                            ((pos_fname _none_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_end
>                                            ((pos_fname _nne_) (pos_lnum 1)
>                                             (pos_bol 0) (pos_cnum -1)))
>                                           (loc_ghost true)))
>                                         (pexp_loc_stack ())
>                                         (pexp_attributes ()))
>                                        ((Nolabel
>                                          ((pexp_desc
135246c124477,124518
<                                           (pexp_attributes ())))))
---
>                                           (pexp_attributes ()))))))
>                                      (pexp_loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true)))
>                                      (pexp_loc_stack ())
>                                      (pexp_attributes ())))
>                                    (pvb_constraint ()) (pvb_attributes ())
>                                    (pvb_loc
>                                     ((loc_start
>                                       ((pos_fname _none_) (pos_lnum 1)
>                                        (pos_bol 0) (pos_cnum -1)))
>                                      (loc_end
>                                       ((pos_fname _none_) (pos_lnum 1)
>                                        (pos_bol 0) (pos_cnum -1)))
>                                      (loc_ghost true)))))
>                                  ((pexp_desc
>                                    (Pexp_construct
>                                     ((txt (Lident Pdir_bool))
>                                      (loc
>                                       ((loc_start
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_end
>                                         ((pos_fname _none_) (pos_lnum 1)
>                                          (pos_bol 0) (pos_cnum -1)))
>                                        (loc_ghost true))))
>                                     (((pexp_desc
>                                        (Pexp_ident
>                                         ((txt (Lident a))
>                                          (loc
>                                           ((loc_start
>                                             ((pos_fname _none_) (pos_lnum 1)
>                                              (pos_bol 0) (pos_cnum -1)))
>                                            (loc_end
>                                             ((pos_fname _none_) (pos_lnum 1)
>                                              (pos_bol 0) (pos_cnum -1)))
>                                            (loc_ghost true))))))
135256,135274c124528,124546
<                                       (pexp_attributes ()))))
<                                    (pexp_loc
<                                     ((loc_start
<                                       ((pos_fname _none_) (pos_lnum 1)
<                                        (pos_bol 0) (pos_cnum -1)))
<                                      (loc_end
<                                       ((pos_fname _none_) (pos_lnum 1)
<                                        (pos_bol 0) (pos_cnum -1)))
<                                      (loc_ghost true)))
<                                    (pexp_loc_stack ()) (pexp_attributes ())))))))
<                              (pexp_loc
<                               ((loc_start
<                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                                  (pos_cnum -1)))
<                                (loc_end
<                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                                  (pos_cnum -1)))
<                                (loc_ghost true)))
<                              (pexp_loc_stack ()) (pexp_attributes ())))))
---
>                                       (pexp_attributes ())))))
>                                   (pexp_loc
>                                    ((loc_start
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_end
>                                      ((pos_fname _none_) (pos_lnum 1)
>                                       (pos_bol 0) (pos_cnum -1)))
>                                     (loc_ghost true)))
>                                   (pexp_loc_stack ()) (pexp_attributes ()))))
>                                (pexp_loc
>                                 ((loc_start
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_end
>                                   ((pos_fname _none_) (pos_lnum 1)
>                                    (pos_bol 0) (pos_cnum -1)))
>                                  (loc_ghost true)))
>                                (pexp_loc_stack ()) (pexp_attributes ())))))))
135378,135454c124650,124656
<                       (Pexp_function () ()
<                        (Pfunction_body
<                         ((pexp_desc
<                           (Pexp_apply
<                            ((pexp_desc
<                              (Pexp_send
<                               ((pexp_desc
<                                 (Pexp_ident
<                                  ((txt (Lident self))
<                                   (loc
<                                    ((loc_start
<                                      ((pos_fname _none_) (pos_lnum 1)
<                                       (pos_bol 0) (pos_cnum -1)))
<                                     (loc_end
<                                      ((pos_fname _none_) (pos_lnum 1)
<                                       (pos_bol 0) (pos_cnum -1)))
<                                     (loc_ghost true))))))
<                                (pexp_loc
<                                 ((loc_start
<                                   ((pos_fname _none_) (pos_lnum 1)
<                                    (pos_bol 0) (pos_cnum -1)))
<                                  (loc_end
<                                   ((pos_fname _none_) (pos_lnum 1)
<                                    (pos_bol 0) (pos_cnum -1)))
<                                  (loc_ghost true)))
<                                (pexp_loc_stack ()) (pexp_attributes ()))
<                               ((txt list)
<                                (loc
<                                 ((loc_start
<                                   ((pos_fname _none_) (pos_lnum 1)
<                                    (pos_bol 0) (pos_cnum -1)))
<                                  (loc_end
<                                   ((pos_fname _none_) (pos_lnum 1)
<                                    (pos_bol 0) (pos_cnum -1)))
<                                  (loc_ghost true))))))
<                             (pexp_loc
<                              ((loc_start
<                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                                 (pos_cnum -1)))
<                               (loc_end
<                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                                 (pos_cnum -1)))
<                               (loc_ghost true)))
<                             (pexp_loc_stack ()) (pexp_attributes ()))
<                            ((Nolabel
<                              ((pexp_desc
<                                (Pexp_send
<                                 ((pexp_desc
<                                   (Pexp_ident
<                                    ((txt (Lident self))
<                                     (loc
<                                      ((loc_start
<                                        ((pos_fname _none_) (pos_lnum 1)
<                                         (pos_bol 0) (pos_cnum -1)))
<                                       (loc_end
<                                        ((pos_fname _none_) (pos_lnum 1)
<                                         (pos_bol 0) (pos_cnum -1)))
<                                       (loc_ghost true))))))
<                                  (pexp_loc
<                                   ((loc_start
<                                     ((pos_fname _none_) (pos_lnum 1)
<                                      (pos_bol 0) (pos_cnum -1)))
<                                    (loc_end
<                                     ((pos_fname _none_) (pos_lnum 1)
<                                      (pos_bol 0) (pos_cnum -1)))
<                                    (loc_ghost true)))
<                                  (pexp_loc_stack ()) (pexp_attributes ()))
<                                 ((txt case)
<                                  (loc
<                                   ((loc_start
<                                     ((pos_fname _none_) (pos_lnum 1)
<                                      (pos_bol 0) (pos_cnum -1)))
<                                    (loc_end
<                                     ((pos_fname _none_) (pos_lnum 1)
<                                      (pos_bol 0) (pos_cnum -1)))
<                                    (loc_ghost true))))))
<                               (pexp_loc
---
>                       (Pexp_apply
>                        ((pexp_desc
>                          (Pexp_send
>                           ((pexp_desc
>                             (Pexp_ident
>                              ((txt (Lident self))
>                               (loc
135461,135471c124663,124731
<                                 (loc_ghost true)))
<                               (pexp_loc_stack ()) (pexp_attributes ()))))))
<                          (pexp_loc
<                           ((loc_start
<                             ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                              (pos_cnum -1)))
<                            (loc_end
<                             ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
<                              (pos_cnum -1)))
<                            (loc_ghost true)))
<                          (pexp_loc_stack ()) (pexp_attributes ())))))
---
>                                 (loc_ghost true))))))
>                            (pexp_loc
>                             ((loc_start
>                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                (pos_cnum -1)))
>                              (loc_end
>                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                (pos_cnum -1)))
>                              (loc_ghost true)))
>                            (pexp_loc_stack ()) (pexp_attributes ()))
>                           ((txt list)
>                            (loc
>                             ((loc_start
>                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                (pos_cnum -1)))
>                              (loc_end
>                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                (pos_cnum -1)))
>                              (loc_ghost true))))))
>                         (pexp_loc
>                          ((loc_start
>                            ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                             (pos_cnum -1)))
>                           (loc_end
>                            ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                             (pos_cnum -1)))
>                           (loc_ghost true)))
>                         (pexp_loc_stack ()) (pexp_attributes ()))
>                        ((Nolabel
>                          ((pexp_desc
>                            (Pexp_send
>                             ((pexp_desc
>                               (Pexp_ident
>                                ((txt (Lident self))
>                                 (loc
>                                  ((loc_start
>                                    ((pos_fname _none_) (pos_lnum 1)
>                                     (pos_bol 0) (pos_cnum -1)))
>                                   (loc_end
>                                    ((pos_fname _none_) (pos_lnum 1)
>                                     (pos_bol 0) (pos_cnum -1)))
>                                   (loc_ghost true))))))
>                              (pexp_loc
>                               ((loc_start
>                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                  (pos_cnum -1)))
>                                (loc_end
>                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                  (pos_cnum -1)))
>                                (loc_ghost true)))
>                              (pexp_loc_stack ()) (pexp_attributes ()))
>                             ((txt case)
>                              (loc
>                               ((loc_start
>                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                  (pos_cnum -1)))
>                                (loc_end
>                                 ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                                  (pos_cnum -1)))
>                                (loc_ghost true))))))
>                           (pexp_loc
>                            ((loc_start
>                              ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                               (pos_cnum -1)))
>                             (loc_end
>                              ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
>                               (pos_cnum -1)))
>                             (loc_ghost true)))
>                           (pexp_loc_stack ()) (pexp_attributes ()))))))


"/usr/bin/env" "bash" "-c" "cd ./src && opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-09-09 09:14.17: Job failed: Failed: Build failed