parser.clj

(defmacro match
  "shitty pattern matching macro

Example:

(def eval [exp]
  (match exp
     (:var v) v
     (:abstraction arg body) (create-procedure arg body)       
     (:application operator operand) (operator operand)))
"
  [exp & body]
  (let [pairs (partition 2 body)
        tests (map (fn [[t b]] (first t)) pairs)
        bodies (map (fn [[t b]]
                       `(let [[~(gensym) ~@(rest t)] ~exp]
                          ~b))
                    pairs)]
    `(case (first ~exp)
           ~@(mapcat #(vector %1 %2) tests bodies))))