Real keywords 00001

analyzer.clj

(def ^:dynamic *real-keywords?* true)
(def ^:dynamic *constant-table* (atom {}))

(defn reset-constant-table! []
  (reset! *constant-table* {}))

(defn register-constant! [k]
  (println "Registering constant!")
  (swap! *constant-table*
        (fn [table]
          (if (get table k)
            table
            (assoc table k (.hashCode k))))))


(defn analyze-keyword
    [env sym]
      ; Track the keyword constant
    (when *real-keywords?*
      (register-constant! sym))
    {:op :constant :env env
       :form sym})

repl.clj

(binding [*constant-table* (atom {})
                         *real-keywords?* true
                         *cljs-ns* 'cljs.user]
                        (analyze (empty-env)
                                 (forms-seq "simple2.cljs"))
                        *constant-table*)
Registering constant!
Registering constant!
Registering constant!
Anaylze symbol
Registering constant!
Anaylze symbol
Anaylze symbol
Anaylze symbol
#<Atom@3f86f612: {:c 1013910699, :b 1013910508, :a 1013910569}>

simple2.cljs

(ns simple2)

(let [m {:a 10 :b 100}]
  (:a m)
  (:c m)
  (println 'a))