Add test for and then fix pprint of code (ns foo).

Signed-off-by: Stuart Halloway <[email protected]>

Author: russolsen

src/clj/clojure/pprint/dispatch.clj

@@ -211,7 +211,7 @@
                   (when (next args)
                     ((formatter-out "~:_"))))))
             (recur (next args))))))
-    (write-out reference)))
+    (when reference (write-out reference))))
 
 (defn- pprint-ns
   "The pretty print dispatch chunk for the ns macro"

test/clojure/test_clojure/pprint/test_pretty.clj

@@ -178,6 +178,7 @@ Usage: *hello*
     (pprint-simple-code-list writer alis)))")
 
 (code-block ns-macro-test
+  "(ns foobarbaz)"
   "(ns slam.hound.stitch
   (:use [slam.hound.prettify :only [prettify]]))"