Update upstream source from tag 'upstream/1.10.3'
Update to upstream version '1.10.3'
with Debian dir 18702df1d23b555aebfbf2daa6adf5e76231e08f
Elana Hashman
1 year, 11 months ago
| 0 | 0 |
<!-- -*- mode: markdown ; mode: visual-line ; coding: utf-8 -*- -->
|
|
1 |
|
|
2 |
# Changes to Clojure in Version 1.10.3
|
|
3 |
|
|
4 |
## 1 Changes reverted
|
|
5 |
|
|
6 |
* [CLJ-2564](https://clojure.atlassian.net/browse/CLJ-2564)
|
|
7 |
Improve error message for case
|
|
8 |
|
|
9 |
## 2 Fixes
|
|
10 |
|
|
11 |
* [CLJ-2453](https://clojure.atlassian.net/browse/CLJ-2453)
|
|
12 |
Enable reader conditionals in Clojure prepl
|
| 1 | 13 |
|
| 2 | 14 |
# Changes to Clojure in Version 1.10.2
|
| 3 | 15 |
|
| 4 | 4 |
<artifactId>clojure</artifactId>
|
| 5 | 5 |
<name>clojure</name>
|
| 6 | 6 |
<packaging>jar</packaging>
|
| 7 | |
<version>1.10.2</version>
|
|
7 |
<version>1.10.3</version>
|
| 8 | 8 |
|
| 9 | 9 |
<url>http://clojure.org/</url>
|
| 10 | 10 |
<description>Clojure core environment and runtime library.</description>
|
|
| 29 | 29 |
<connection>scm:git:git@github.com:clojure/clojure.git</connection>
|
| 30 | 30 |
<developerConnection>scm:git:git@github.com:clojure/clojure.git</developerConnection>
|
| 31 | 31 |
<url>git@github.com:clojure/clojure.git</url>
|
| 32 | |
<tag>clojure-1.10.2</tag>
|
|
32 |
<tag>clojure-1.10.3</tag>
|
| 33 | 33 |
</scm>
|
| 34 | 34 |
|
| 35 | 35 |
<properties>
|
| 225 | 225 |
(add-tap tapfn)
|
| 226 | 226 |
(loop []
|
| 227 | 227 |
(when (try
|
| 228 | |
(let [[form s] (read+string in-reader false EOF)]
|
|
228 |
(let [[form s] (read+string {:eof EOF :read-cond :allow} in-reader)]
|
| 229 | 229 |
(try
|
| 230 | 230 |
(when-not (identical? form EOF)
|
| 231 | 231 |
(let [start (System/nanoTime)
|
| 6694 | 6694 |
(into1 #{} (map #(shift-mask shift mask %) skip-check)))]
|
| 6695 | 6695 |
[shift mask case-map switch-type skip-check]))))
|
| 6696 | 6696 |
|
| 6697 | |
(defn case-fallthrough-err-impl
|
| 6698 | |
[val]
|
| 6699 | |
(IllegalArgumentException. (str "No matching clause: " (pr-str val))))
|
| 6700 | 6697 |
|
| 6701 | 6698 |
(defmacro case
|
| 6702 | 6699 |
"Takes an expression, and a set of clauses.
|
|
| 6727 | 6724 |
(let [ge (with-meta (gensym) {:tag Object})
|
| 6728 | 6725 |
default (if (odd? (count clauses))
|
| 6729 | 6726 |
(last clauses)
|
| 6730 | |
`(throw (case-fallthrough-err-impl ~ge)))]
|
|
6727 |
`(throw (IllegalArgumentException. (str "No matching clause: " ~ge))))]
|
| 6731 | 6728 |
(if (> 2 (count clauses))
|
| 6732 | 6729 |
`(let [~ge ~e] ~default)
|
| 6733 | 6730 |
(let [pairs (partition 2 clauses)
|