'block-children' helper function should return nil when given a nil a…

…rgument. Fixes #331
HackerSchool12 · Jul 4, 2012 · 8caff59 · 8caff59
1 parent 04e44e4
commit 8caff59
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/clj/cljs/analyzer.clj b/src/clj/cljs/analyzer.clj
@@ -231,8 +231,8 @@
      :throw throw-expr
      :children [throw-expr]}))
 
-(defn- block-children [{:keys [statements ret]}]
-  (conj (vec statements) ret))
+(defn- block-children [{:keys [statements ret] :as block}]
+  (when block (conj (vec statements) ret)))
 
 (defmethod parse 'try*
   [op env [_ & body :as form] name]