bug fix: print-node cannot print first item in special-form list.

hozumi · May 3, 2010 · 06523a6 · 06523a6
1 parent d7316fb
commit 06523a6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/hozumi/eyewrap.clj b/src/hozumi/eyewrap.clj
@@ -236,7 +236,8 @@
 			limited-size-v (lazy-chked-v out)
 			[first-child :as my-childs] (reverse (vals child))
 			target-childs (cond (and (seq? form)
-						 (coll? (:out first-child))) my-childs
+						 (or (special-symbol? (first form))
+						     (coll? (:out first-child)))) my-childs
 						 (and (seq? form)
 						      (elem? (:out first-child))) (rest my-childs)
 						 (coll? form) my-childs)]