add copyright statement to code

Author: puredanger

src/main/clojure/clojure/math/numeric_tower.clj

@@ -1,3 +1,11 @@
+;   Copyright (c) Mark Engelberg, Rich Hickey and contributors. All rights reserved.
+;   The use and distribution terms for this software are covered by the
+;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+;   which can be found in the file epl-v10.html at the root of this distribution.
+;   By using this software in any fashion, you are agreeing to be bound by
+;   the terms of this license.
+;   You must not remove this notice, or any other, from this software.
+
 ;;; math.clj: math functions that deal intelligently with the various
 ;;; types in Clojure's numeric tower, as well as math functions
 ;;; commonly found in Scheme implementations.
@@ -53,21 +61,21 @@ exact-integer-sqrt - Implements a math function from the R6RS Scheme
   returns the floor of the square root and the \"remainder\".
 "}
   clojure.math.numeric-tower)
-
-;; so this code works with both 1.2.x and 1.3.0:
+
+;; so this code works with both 1.2.x and 1.3.0:
 (def ^{:private true} minus (first [-' -]))
-(def ^{:private true} mult (first [*' *]))
+(def ^{:private true} mult (first [*' *]))
 (def ^{:private true} plus (first [+' +]))
 (def ^{:private true} dec* (first [dec' dec]))
-(def ^{:private true} inc* (first [inc' inc]))
-
+(def ^{:private true} inc* (first [inc' inc]))
+
 ;; feature testing macro, based on suggestion from Chas Emerick:
 (defmacro when-available
   [sym & body]
   (try
     (when (resolve sym)
       (list* 'do body))
-    (catch ClassNotFoundException _#)))
+    (catch ClassNotFoundException _#)))
 
 (defn- expt-int [base pow]
   (loop [n pow, y (num 1), z base]
@@ -85,9 +93,9 @@ Returns an exact number if the base is an exact number and the power is an integ
     (cond
      (pos? pow) (expt-int base pow)
      (zero? pow) (cond
-                   (= (type base) BigDecimal) 1M
+                   (= (type base) BigDecimal) 1M
                    (= (type base) java.math.BigInteger) (java.math.BigInteger. "1")
-                   (when-available clojure.lang.BigInt (= (type base) clojure.lang.BigInt))
+                   (when-available clojure.lang.BigInt (= (type base) clojure.lang.BigInt))
                    (when-available clojure.lang.BigInt (bigint 1))
                    :else 1)
      :else (/ 1 (expt-int base (minus pow))))
@@ -138,8 +146,8 @@ round always returns an integer.  Rounds up for values exactly in between two in
  (integer-length [n] (.bitLength n))
  (sqrt [n] (sqrt-integer n)))
 
-(when-available
-  clojure.lang.BigInt
+(when-available
+  clojure.lang.BigInt
   (extend-type
     clojure.lang.BigInt MathFunctions
     (floor [n] n)