summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2008-03-29 22:28:52 +0000
committerRich Hickey <richhickey@gmail.com>2008-03-29 22:28:52 +0000
commit1e31c582bfa5fbf73285efdfcf5448efc3a3935a (patch)
tree7a0fbb6560d130d4c91232fa09a3364cb7f9983e
parent9242924b4fa7d53ef319a020d54daf6a9404a6b6 (diff)
added arglists to in-ns and load-file
-rw-r--r--src/jvm/clojure/lang/RT.java8
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)