From 61ccbc81a2f3b4662ed4a2bad9d07d2003dda3a2 Mon Sep 17 00:00:00 2001
From: glondu
Date: Thu, 17 Sep 2009 15:58:14 +0000
Subject: Delete trailing whitespaces in all *.{v,ml*} files

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12337 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/hashcons.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/hashcons.ml')

diff --git a/lib/hashcons.ml b/lib/hashcons.ml
index c7cd145424..921a4ed563 100644
--- a/lib/hashcons.ml
+++ b/lib/hashcons.ml
@@ -19,7 +19,7 @@
  *   the hash-consing functions u provides.
  * [equal] is a comparison function. It is allowed to use physical equality
  *   on the sub-terms hash-consed by the hash_sub function.
- * [hash] is the hash function given to the Hashtbl.Make function 
+ * [hash] is the hash function given to the Hashtbl.Make function
  *
  * Note that this module type coerces to the argument of Hashtbl.Make.
  *)
@@ -106,7 +106,7 @@ let recursive_loop_hcons h u =
   let rec hrec visited x =
     if List.memq x visited then x
     else hc (hrec (x::visited),u) x
-  in 
+  in
   hrec []
 
 (* For 2 mutually recursive types *)
@@ -164,7 +164,7 @@ let comp_obj o1 o2 =
       else false
   else o1=o2
 
-let hash_obj hrec o = 
+let hash_obj hrec o =
   begin
     if tuple_p o then
       let n = Obj.size o in
-- 
cgit v1.2.3