(* Extraction of primitive projections within a functor were
incorrectly referencing themselves *) ModuleType Nop. End Nop. Module Empty. End Empty. Module M (N : Nop). LocalSet Primitive Projections.
Record M_t_NonEmpty elt := { M_m :> list elt }.
Record M_t_NonEmpty' X Y := { a : X ; b : Y }. End M. Module M' := M Empty. RequireImport Corelib.extraction.Extraction. RequireImport Corelib.extraction.ExtrOcamlBasic.
Extraction Language OCaml.
Recursive Extraction M'.
Extraction TestCompile M'.
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.