                                                    (+ indent ind)
                                                    comma?
                                                    pair-seq)]
-                (concat-no-nil l-str-vec
-                               ;(apply concat-no-nil
-                               (interpose-either-nl-hf
-				 ; pred true
-                                 [["," ;(str "," (blanks (inc ind)))
-                                   :none :whitespace 21]
-                                  [(str "\n" (blanks (inc ind))) :none :indent 32]]
-                                 [["," ;(str "," (blanks (inc ind)))
-                                   :none :whitespace 22] ; Fix issue #59 -- don't
-                                  ; put blanks to indent before the next \n
-                                  ["\n" :none :indent 33]
-                                  [(str "\n" (blanks (inc ind))) :none :indent 34]]
-				 ; pred nil
-                                 [[(str "\n" (blanks (inc ind))) :none :indent 35]]
-                                 [[(str "\n" (blanks (inc ind))) :none :indent 36]
-                                  [(str "\n" (blanks (inc ind))) :none :indent 37]]
-                                 (:map options) ;nl-separator?
-				 comma?
-                                 #_(and comma?   ; pred
-				       ; don't put commas after comments
-                                       (not= (nth (first %) 2) :comment)
-                                       (not= (nth (first %) 2) :comment-inline))
-                                 pair-print)
-                               ; )
-                               r-str-vec)))))))))
+                (concat-no-nil
+                  l-str-vec
+                  (interpose-either-nl-hf
+                    ; comma? true
+                    [["," :none :whitespace 21]
+                     [(str "\n" (blanks (inc ind))) :none :indent 32]]
+                    [["," :none :whitespace 22] ; Fix issue #59 -- don't
+                     ; put blanks to indent before the next \n
+                     ["\n" :none :indent 33]
+                     [(str "\n" (blanks (inc ind))) :none :indent 34]]
+                    ; comma? nil
+                    [[(str "\n" (blanks (inc ind))) :none :indent 35]]
+                    [[(str "\n" (blanks (inc ind))) :none :indent 36]
+                     [(str "\n" (blanks (inc ind))) :none :indent 37]]
+                    (:map options) ;nl-separator?
+                    comma?
+                    pair-print)
+                  r-str-vec)))))))))
 
 (defn fzprint-map
   "Format a real map."

         first? true
         newline-count 0]
    (if (empty? coll)
      (apply concat-no-nil (persistent! #_out
      
           (if (zero? newline-count)
           out
           (conj-it! out
                     (repeat-element-nl newline-count (first sep))
                     #_(repeat newline-count (first sep)))) 
      
      ))
      (let [[hangflow style-vec] (first coll)
            style-vec-empty? (and (= (count style-vec) 1)
                                  (empty? (first (first style-vec))))
	    [_ _ what] (first style-vec) ]
        #_(prn "====>>>>>>>> interpose-either-nl-hf: style-vec:" style-vec)
        (cond
          ; TODO: Get rid of this cond clause and the check for
          ; it above if we haven't had the exception.
          style-vec-empty?
            ; We have a newline that has been removed, just skip this
            ; one and move on.
            #_(recur (next coll) out previous-needs-comma? add-nl? no-interpose?)
            ; I don't think we should get these anymore.
            (throw (#?(:clj Exception.
                       :cljs js/Error.)
                    (str "empty style vec:" style-vec)))
          (= what #_(nth (first style-vec) 2) :newline)
            ; We have a one or more newlines.  We are going to keep
            ; track of what we've seen and will actually output things
            ; later, when we know what we actually have.

                  ; if first? we assume that we get one newline from caller
                  interpose-count (if first? 1 interpose-count)
                  addtl-nl-needed (max (- newline-count interpose-count) 0)]
              ; Here is where we need to figure out if two newlines are
              ; coming out in order, and ensure that the first ones don't
              ; have any spaces after them.
              #_(prn "ienf: interpose-style-vec:" interpose-style-vec)
              (recur
                (next coll)
                (if first?
