Micro improvement in Bool.compute

8d0d7e1b · Pietro Abate · 880ea5e9 · 8d0d7e1b
Commit 8d0d7e1b authored May 22, 2014 by Pietro Abate
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

misc/bool.ml misc/bool.ml +5 -4

No files found.
--- a/misc/bool.ml
+++ b/misc/bool.ml
@@ -164,9 +164,10 @@ struct
      | True -> full
      | False -> empty
      | Split(_,x, p,i,n) ->
-	  let p = cap (atom x) (aux p)
+          let x1 = atom x in
+          let p = cap x1 (aux p)
          and i = aux i
-	  and n = diff (aux n) (atom x) in
+          and n = diff (aux n) x1 in
          cup (cup p i) n
    in
    aux b