diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-06-17 09:58:15 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-06-17 09:58:15 -0400 |
| commit | 48c1e45a7d950fc7ac33c5b6843f291717a1b8ae (patch) | |
| tree | bf51888cbfed673d89ce1f39855eb4b26720727c /src/main/clojure | |
| parent | 9f9b78ab6d536dbba4ae40eb0d6c5cdbfe843c5d (diff) | |
fix for num compat
Diffstat (limited to 'src/main/clojure')
| -rw-r--r-- | src/main/clojure/clojure/contrib/pprint/cl_format.clj | 6 |
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)) |