Permalink
Browse files

Fix prettify for bare ns-map.

  • Loading branch information...
1 parent b2b748b commit 4d109acbc22ca4f018e1395131919f8cf6b91901 @technomancy committed Dec 26, 2012
Showing with 8 additions and 6 deletions.
  1. +8 −6 src/slam/hound/prettify.clj
@@ -61,14 +61,16 @@
(when (or doc-str attr-map (seq references))
((formatter-out "~@:_")))
(when doc-str
- (cl-format true "\"~a\"~:[~;~:@_~]" doc-str (or attr-map (seq references))))
+ (cl-format true "\"~a\"~:[~;~:@_~]" doc-str
+ (or attr-map (seq references))))
(when attr-map
((formatter-out "~w~:[~;~:@_~]") attr-map (seq references)))
- (loop [references references]
- (pprint-ns-reference (first references))
- (when-let [references (next references)]
- (pprint-newline :linear)
- (recur references)))))
+ (when references
+ (loop [references references]
+ (pprint-ns-reference (first references))
+ (when-let [references (next references)]
+ (pprint-newline :linear)
+ (recur references))))))
(write-out alis)))
(defn augmented-dispatch

0 comments on commit 4d109ac

Please sign in to comment.