CLJS-2449: Can't bind catch

Author: mfikes

src/main/cljs/cljs/core.cljs

@@ -10908,7 +10908,6 @@ reduces them without incurring seq initialization"
 (defn ^boolean special-symbol?
   "Returns true if x names a special form"
   [x]
-  ;; If adding new special symbols, be sure to update cljs.analyzer/specials
   (contains?
     '#{if def fn* do let* loop* letfn* throw try catch finally
        recur new set! ns deftype* defrecord* . js* & quote case* var ns*}

src/main/clojure/cljs/analyzer.cljc

@@ -1167,8 +1167,9 @@
 
 (declare analyze analyze-symbol analyze-seq)
 
-;; If adding new specials, be sure to update cljs.core/special-symbol?
-(def specials '#{if def fn* do let* loop* letfn* throw try catch finally recur new set!
+;; Note: This is the set of parse multimethod dispatch values,
+;; along with '&, and differs from cljs.core/special-symbol?
+(def specials '#{if def fn* do let* loop* letfn* throw try recur new set!
                  ns deftype* defrecord* . js* & quote case* var ns*})
 
 (def ^:dynamic *recur-frames* nil)

src/test/cljs/cljs/core_test.cljs

@@ -1483,6 +1483,10 @@
   (is (= "##Inf" (pr-str js/Infinity)))
   (is (= "##-Inf" (pr-str js/-Infinity))))
 
+(deftest test-cljs-2449
+  (is (= 1 (let [catch identity] (catch 1))))
+  (is (= 1 (let [finally identity] (finally 1)))))
+
 (deftype Foo2407 [x y])
 (defrecord Bar2407 [x y])