\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-module Y = Entity
+module E = Entity
(* interface functions ******************************************************)
fun () -> incr location; !location
let new_mark () =
- Y.Mark (new_location ())
+ E.Mark (new_location ())