Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

51 lines (45 sloc) 1.867 kB
;; Copyright (c) Nicola Mometto, Rich Hickey & contributors.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; which can be found in the file epl-v10.html at the root of this distribution.
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.
(ns clojure.tools.analyzer.env
(:refer-clojure :exclude [ensure]))
(def ^:dynamic *env*
"Global env atom
Required options:
* :namespaces an atom containing a map from namespace symbol to namespace map,
the namespace map contains at least the following keys:
** :mappings a map of mappings of the namespace, symbol to var/class
** :aliases a map of the aliases of the namespace, symbol to symbol
** :ns a symbol representing the namespace"
nil)
(defmacro with-env
"Binds the global env to env, then executes the body"
[env & body]
`(let [env# ~env
env# (cond
(map? env#) (atom env#)
(and (instance? clojure.lang.Atom env#)
(map? @env#)) env#
:default (throw (IllegalArgumentException.
(str "global env must be a map or atom containing a map, not "
(class env#)))))]
(binding [*env* env#] ~@body)))
;; if *env* is not bound, bind it to env
(defmacro ensure
"If *env* is not bound it binds it to env before executing the body"
[env & body]
`(if *env*
(do ~@body)
(with-env ~env
~@body)))
(defn deref-env
"Returns the value of the current global env if bound, otherwise
throws an exception."
[]
(if *env*
@*env*
(throw (Exception. "global env not bound"))))
Jump to Line
Something went wrong with that request. Please try again.