       (if (= 1 (count messages))
         (str "  "
              (color-text (-> messages first :message)
-                         :bold))
+                         (if (= environment :repl)
+                           :yellow
+                           :bold)))
         (string/join "\n"
                      (map
                       (fn [{:keys [class message]}]

;; parse warnings

;;; --- WARNINGS

(defn parse-warning [{:keys [message warning-type
                             line column ns file message extra] :as warning}]

               [[:error-in-code line (nth lines (dec line))]]
               [[:error-message nil
                 (breaker-line (nth lines (dec line))
                               (when-not (= environment :repl) message) 
                               (if (= line 1)
                                 (+ (repl-prompt-indent
                                     environment
