module C = Cps
module G = Options
module H = Hierarchy
-module N = Level
+module N = Layer
module E = Entity
(* internal functions *******************************************************)
let apix a =
"position", string_of_int a.E.n_apix
-let level st n =
- "level", N.to_string st n
+let layer st n =
+ "layer", N.to_string st n
let kind a =
"position", string_of_int a.E.n_sort