         right          (compile-media-query [:feature-value right])
         left-operator  (name left-operator)
         right-operator (name right-operator)]
-    (if (->> [left right] (map (comp not literal?) (filter identity) seq))
-      `(cljs.core/str "(" ~left ~(str " " left-operator " " feature-name " " right-operator " ") ~right ")")
-      (str "(" left " " left-operator " " feature-name " " right-operator " " right ")"))))
+    (str "(" left " " left-operator " " feature-name " " right-operator " " right ")")))
 
 (defn -compile-media-query [query]
   (let [ret (s/conform ::media-query query)
         ret (if (= ::s/invalid ret)
               (throw (Error. (s/explain ::media-query query)))
               (compile-media-query ret))]
-    `(cljs.core/str "@media " (clojure.string/join " " ~ret))))
-
+    (->> (flatten ret)
+         (clojure.string/join " ")
+         (str "@media "))))
 
 (defn compile-media-dispatch [styles]
   (cond

(defmethod compile-media-query :plain [[_ {:keys [feature-name feature-value]}]]
  (let [feature-name  (compile-media-query [:feature-name feature-name])
        feature-value (compile-media-query [:feature-value feature-value])]
    (if (literal? feature-value)
      (str "(" feature-name ":" feature-value ")")
      `(cljs.core/str ~(str "(" feature-name ":") ~feature-value ")"))))

(defmethod compile-media-query :range [[_ range]]
  (compile-media-query range))

  (let [left     (compile-media-query left)
        right    (compile-media-query right)
        operator (name operator)]
    (str "(" left " " operator " " right ")")))

(defmethod compile-media-query :complex-range
  [[_ [_ {:keys [left left-operator feature-name right-operator right]}]]]
