Misc.Fatal_error (segmentation fault)

[yallop]

a.ml:

(* empty *)

b.ml:

module ~D = A
macro m () = <<assert false>>

c.ml:

let f = $(B.m  ())

Bug:

$ ocamlc a.ml b.ml c.ml
Segmentation fault
>> Fatal error: Something went wrong when executing splice generation command: /home/jeremy/.opam/macros/bin/ocamlrun /tmp/camlstatic52bb4e /tmp/camlsplice08ed3d
Fatal error: exception Misc.Fatal_error

[yallop]

Simpler:

b.ml:

module M = struct end
macro m () = << 3 >>

c.ml:

let f = $(B.m ())

Bug:

ocamlc b.ml c.ml
Segmentation fault
>> Fatal error: Something went wrong when executing splice generation command: /home/jeremy/projects/modular-macros/install/bin/ocamlrun /tmp/camlstatic750f1c /tmp/camlsplice68d64b
Fatal error: exception Misc.Fatal_error