 
 (defn get-define [mname jsdoc]
   (let [opts (get @env/*compiler* :options)]
-    (and (some #(.startsWith ^String % "@define") jsdoc)
+    (and (some #?(:clj #(.startsWith ^String % "@define")
+                  :cljs #(gstring/startsWith % "@define"))
+           jsdoc)
          opts
          (= (:optimizations opts) :none)
          (let [define (get-in opts [:closure-defines (str mname)])]

                    [cljs.source-map :as sm]
                    [clojure.data.json :as json]
                    [cljs.js-deps :as deps])
     :cljs (:require [clojure.string :as string]
                     [cljs.tools.reader :as reader]
                     [cljs.env :as env]
                     [cljs.analyzer :as ana]
                     [cljs.source-map :as sm]))
  #?(:clj (:import java.lang.StringBuilder
                   java.io.File)))

(set! *warn-on-reflection* true)


        (format "\\u%04X" cp))))) ; Any other character is Unicode

(defn- escape-string [^CharSequence s]
  (let [sb #?(:clj (StringBuilder. (count s))
              :cljs (StringBuffer.))]
    (doseq [c s]
      (.append sb (escape-char c)))
    (.toString sb)))
