Remove trailing white spaces

[SXSI/xpathcomp.git] / uid.ml

diff --git a/uid.ml b/uid.ml
index bb0fb18..25b9e15 100644 (file)
--- a/uid.ml
+++ b/uid.ml
@@ -1,8 +1,10 @@
 type t = int
 
-let _id = ref ~-1
-
-let make () = incr _id; !_id
+let make_maker () = 
+  let _id = ref ~-1 in
+  fun () -> incr _id;!_id
 
 external to_int : t -> int = "%identity"
 
+
+external of_int : int -> t= "%identity"