diff options
author | Rich Hickey <richhickey@gmail.com> | 2008-03-29 22:28:52 +0000 |
---|---|---|
committer | Rich Hickey <richhickey@gmail.com> | 2008-03-29 22:28:52 +0000 |
commit | 1e31c582bfa5fbf73285efdfcf5448efc3a3935a (patch) | |
tree | 7a0fbb6560d130d4c91232fa09a3364cb7f9983e | |
parent | 9242924b4fa7d53ef319a020d54daf6a9404a6b6 (diff) |
added arglists to in-ns and load-file
-rw-r--r-- | src/jvm/clojure/lang/RT.java | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java index cf6c75f0..a583f95c 100644 --- a/src/jvm/clojure/lang/RT.java +++ b/src/jvm/clojure/lang/RT.java @@ -190,18 +190,22 @@ static AtomicInteger id = new AtomicInteger(1); static { Keyword dockw = Keyword.intern(null, "doc"); + Keyword arglistskw = Keyword.intern(null, "arglists"); + Symbol namesym = Symbol.create("name"); OUT.setTag(Symbol.create("java.io.OutputStreamWriter")); CURRENT_NS.setTag(Symbol.create("clojure.lang.Namespace")); Var v; v = Var.intern(CLOJURE_NS, IN_NAMESPACE, inNamespace); - v.setMeta(map(dockw, "Sets *ns* to the namespace named by the symbol, creating it if needed.")); + v.setMeta(map(dockw, "Sets *ns* to the namespace named by the symbol, creating it if needed.", + arglistskw, list(vector(namesym)))); v = Var.intern(CLOJURE_NS, LOAD_FILE, new AFn(){ public Object invoke(Object arg1) throws Exception{ return Compiler.loadFile((String) arg1); } }); - v.setMeta(map(dockw, "Sequentially read and evaluate the set of forms contained in the file.")); + v.setMeta(map(dockw, "Sequentially read and evaluate the set of forms contained in the file.", + arglistskw, list(vector(namesym)))); v = Var.intern(CLOJURE_NS, IDENTICAL, new AFn(){ public Object invoke(Object arg1, Object arg2) |