Browse files

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

  • Loading branch information...
2 parents f8e3d8d + a0ff00b commit 43ff1c4adea322e6edc1d368ff128f2ad47406a5 David Nolen committed May 18, 2012
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*))))))

0 comments on commit 43ff1c4

Please sign in to comment.