diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-02-23 19:36:39 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-02-23 19:36:39 +0000 |
| commit | 694abf6d09de56e6c03d89650143fc1a5f5075df (patch) | |
| tree | 864598cae7181373b5293518a8f67a3f7d1cb0ff /src | |
| parent | 4c27672bede52676a2e8b922ef7f7650098183af (diff) | |
added RT.var() helper, made CLOJURE_NS and CURRENT_NS public
Diffstat (limited to 'src')
| -rw-r--r-- | src/jvm/clojure/lang/RT.java | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java index c35bdedb..aa9736b9 100644 --- a/src/jvm/clojure/lang/RT.java +++ b/src/jvm/clojure/lang/RT.java @@ -102,7 +102,7 @@ Symbol.create("Exception"), Exception.class ); -static final Namespace CLOJURE_NS = Namespace.findOrCreate(Symbol.create("clojure")); +static public final Namespace CLOJURE_NS = Namespace.findOrCreate(Symbol.create("clojure")); //static final Namespace USER_NS = Namespace.findOrCreate(Symbol.create("user")); final static public Var OUT = Var.intern(CLOJURE_NS, Symbol.create("*out*"), new OutputStreamWriter(System.out)); @@ -124,8 +124,8 @@ final static Symbol IN_NAMESPACE = Symbol.create("in-ns"); static final Symbol IDENTICAL = Symbol.create("identical?"); final static Var CMD_LINE_ARGS = Var.intern(CLOJURE_NS, Symbol.create("*command-line-args*"), null); //symbol -final static Var CURRENT_NS = Var.intern(CLOJURE_NS, Symbol.create("*ns*"), - CLOJURE_NS); +final public static Var CURRENT_NS = Var.intern(CLOJURE_NS, Symbol.create("*ns*"), + CLOJURE_NS); final static Var PRINT_META = Var.intern(CLOJURE_NS, Symbol.create("*print-meta*"), F); final static Var PRINT_READABLY = Var.intern(CLOJURE_NS, Symbol.create("*print-readably*"), T); @@ -227,6 +227,10 @@ static // } +static public Var var(String ns, String name){ + return Var.intern(Namespace.findOrCreate(Symbol.intern(null, ns)), Symbol.intern(null, name)); +} + static public void init() throws Exception{ try { |