Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge branch 'master' of github.com:clojure/clojurescript

  • Loading branch information...
commit 43ff1c4adea322e6edc1d368ff128f2ad47406a5 2 parents f8e3d8d + a0ff00b
David Nolen authored
Showing with 3 additions and 5 deletions.
  1. +3 −5 src/cljs/cljs/reader.cljs
View
8 src/cljs/cljs/reader.cljs
@@ -416,11 +416,9 @@ nil if the end of stream has been reached")
(defn maybe-read-tagged-type
[rdr initch]
- (let [tag (read-symbol rdr initch)
- form (read rdr true nil false)
- pfn (get @*tag-table* (name tag))]
- (if pfn
- (pfn form)
+ (let [tag (read-symbol rdr initch)]
+ (if-let [pfn (get @*tag-table* (name tag))]
+ (pfn (read rdr true nil false))
(reader-error rdr
"Could not find tag parser for " (name tag)
" in " (pr-str (keys @*tag-table*))))))
Please sign in to comment.
Something went wrong with that request. Please try again.