14 lines
710 B
OCaml
14 lines
710 B
OCaml
|
(**************************************************************************)
|
||
|
(* *)
|
||
|
(* Heptagon *)
|
||
|
(* *)
|
||
|
(* Author : Marc Pouzet *)
|
||
|
(* Organization : Demons, LRI, University of Paris-Sud, Orsay *)
|
||
|
(* *)
|
||
|
(**************************************************************************)
|
||
|
|
||
|
(* error during the whole process *)
|
||
|
exception Error
|
||
|
(** Ast iterators *)
|
||
|
exception Fallback
|