aboutsummaryrefslogtreecommitdiff
path: root/src/main/clojure
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2010-06-17 09:58:15 -0400
committerRich Hickey <richhickey@gmail.com>2010-06-17 09:58:15 -0400
commit48c1e45a7d950fc7ac33c5b6843f291717a1b8ae (patch)
treebf51888cbfed673d89ce1f39855eb4b26720727c /src/main/clojure
parent9f9b78ab6d536dbba4ae40eb0d6c5cdbfe843c5d (diff)
fix for num compat
Diffstat (limited to 'src/main/clojure')
-rw-r--r--src/main/clojure/clojure/contrib/pprint/cl_format.clj6
1 files changed, 3 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 292f7f86..f6e988ca 100644
--- a/src/main/clojure/clojure/contrib/pprint/cl_format.clj
+++ b/src/main/clojure/clojure/contrib/pprint/cl_format.clj
@@ -423,9 +423,9 @@ Note this should only be used for the last one in the sequence"
not-teens (or (< 11 low-two-digits) (> 19 low-two-digits))
low-digit (rem low-two-digits 10)]
(print (cond
- (and (= low-digit 1) not-teens) "st"
- (and (= low-digit 2) not-teens) "nd"
- (and (= low-digit 3) not-teens) "rd"
+ (and (== low-digit 1) not-teens) "st"
+ (and (== low-digit 2) not-teens) "nd"
+ (and (== low-digit 3) not-teens) "rd"
:else "th")))))))
navigator))