diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2010-05-01 00:05:37 -0700 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2010-05-01 00:05:37 -0700 |
| commit | 5a703b33391e9486548af9ae7d8c3601d6f44505 (patch) | |
| tree | 9cc5390e551605db01bec0e3b1d069a1f9732cea | |
| parent | 912e5671cc8237addf55753ff524bf283830e684 (diff) | |
Remove debug prints :-(. See #47
| -rw-r--r-- | src/main/clojure/clojure/contrib/pprint/cl_format.clj | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/main/clojure/clojure/contrib/pprint/cl_format.clj b/src/main/clojure/clojure/contrib/pprint/cl_format.clj index dc332d8c..292f7f86 100644 --- a/src/main/clojure/clojure/contrib/pprint/cl_format.clj +++ b/src/main/clojure/clojure/contrib/pprint/cl_format.clj @@ -585,8 +585,7 @@ Note this should only be used for the last one in the sequence" round-up-result (str leading-zeros (String/valueOf (+ result-val (if (neg? result-val) -1 1)))) - expanded (> (count round-up-result) (count result)) - _ (prlabel round-str round-up-result e1 expanded)] + expanded (> (count round-up-result) (count result))] [round-up-result e1 expanded]) [result e1 false])) [m e false])) @@ -632,7 +631,6 @@ Note this should only be used for the last one in the sequence" append-zero (and (not d) (<= (dec (count mantissa)) scaled-exp)) [rounded-mantissa scaled-exp expanded] (round-str mantissa scaled-exp d (if w (- w (if add-sign 1 0)))) - _ (prlabel f-f mantissa exp rounded-mantissa scaled-exp) fixed-repr (get-fixed rounded-mantissa (if expanded (inc scaled-exp) scaled-exp) d) prepend-zero (= (first fixed-repr) \.)] (if w |