diff options
| author | Rich Hickey <richhickey@gmail.com> | 2007-09-12 19:04:24 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2007-09-12 19:04:24 +0000 |
| commit | 8a455a486ff36e93acf2b53ecd2dc488fbfea16f (patch) | |
| tree | 91c4f5777d08edd6099b11771c44c5c39cc3bc03 /src | |
| parent | d7f39a425ce621b86d1fb23ba36ae711c262aba3 (diff) | |
interim checkin
Diffstat (limited to 'src')
| -rw-r--r-- | src/jvm/clojure/lang/RT.java | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java index 9e74e8eb..e4e6c867 100644 --- a/src/jvm/clojure/lang/RT.java +++ b/src/jvm/clojure/lang/RT.java @@ -26,10 +26,20 @@ final static Keyword TAG_KEY = Keyword.intern("clojure", "tag"); final static public Var CURRENT_MODULE = Var.intern(Symbol.create("clojure", "current-module"), Module.findOrCreateModule("clojure/user")); +final static Symbol LOAD_FILE = Symbol.create("clojure", "load-file"); + //string final static Var CURRENT_NS = Var.intern(Symbol.create("clojure", "*current-namespace*"), "clojure"); //simple-symbol->var -final static Var REFERS = Var.intern(Symbol.create("clojure", "*refers*"), PersistentHashMap.EMPTY); +final static Var REFERS = + Var.intern(Symbol.create("clojure", "*refers*"), + map( + LOAD_FILE, Var.intern(LOAD_FILE, + new AFn(){ + public Object invoke(Object arg1) throws Exception{ + return Compiler.loadFile((String) arg1); + } + }))); //simple-symbol->fully-qualified-class-name-string final static Var IMPORTS = Var.intern(Symbol.create("clojure", "*imports*"), map(Symbol.create("RT"), "clojure.lang.RT", |