diff options
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)) |