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/bstack.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/bstack.ml')

diff --git a/lib/bstack.ml b/lib/bstack.ml
index b4232ebcf0..4191ccdb15 100644
--- a/lib/bstack.ml
+++ b/lib/bstack.ml
@@ -47,10 +47,10 @@ let push bs e =
   incr_size bs;
   bs.depth <- bs.depth + 1;
   bs.stack.(bs.pos) <- e
-	  
+
 let pop bs =
   if bs.size > 1 then begin
-    bs.size <- bs.size - 1; 
+    bs.size <- bs.size - 1;
     bs.depth <- bs.depth - 1;
     let oldpos = bs.pos in
     decr_pos bs;
@@ -61,7 +61,7 @@ let pop bs =
 let top bs =
   if bs.size >= 1 then bs.stack.(bs.pos)
   else error "Nothing on the stack"
-	  
+
 let app_push bs f =
   if bs.size = 0 then error "Nothing on the stack"
   else push bs (f (bs.stack.(bs.pos)))
-- 
cgit v1.2.3