 ;; Form Formatting
 ;;------------------------------------------------------------
 
+(defn symbol->filename
+  [s]
+  (-> (name s)
+      (replace ">" "GT")
+      (replace "<" "LT")
+      (replace "!" "BANG")
+      (replace "?" "QMARK")
+      (replace "*" "STAR")
+      (replace "+" "PLUS")
+      (replace "/" "SLASH")))
+
 (defn get-def-name
   [form]
   (let [[a b c] form


(defn -main
  []
  (get-symbols "cljs.core")
  (get-symbols "clojure.set")
  (get-symbols "clojure.string"))


(ns core
  (:refer-clojure :exclude [replace])
  (:require
    [clojure.java.io :as io]
    [clojure.tools.reader :as reader]
    [clojure.tools.reader.reader-types :as readers]
    [clojure.string :refer [split-lines join replace]]
    [cljs.env :as env]
    [cljs.tagged-literals :refer [*cljs-data-readers*]]
    [cljs.analyzer :refer [forms-seq analyze-file]]))

(def special-forms
  '[if do let quote var fn loop recur throw try . new set!])

;;------------------------------------------------------------
;; Form Retrieving
