summaryrefslogtreecommitdiff
path: root/src/jvm
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2007-09-06 18:56:43 +0000
committerRich Hickey <richhickey@gmail.com>2007-09-06 18:56:43 +0000
commit83a708fcac4cb37ed91ad4d32d70e54041b41dec (patch)
treefb82f3d1206ccd7238ab8ba36a5f3d6f8af66bbc /src/jvm
parent79420ec6999df1a4471f10116e724ca10267f861 (diff)
switched null to nil
Diffstat (limited to 'src/jvm')
-rw-r--r--src/jvm/clojure/lang/BytecodeCompiler.java2
-rw-r--r--src/jvm/clojure/lang/LispReader.java6
-rw-r--r--src/jvm/clojure/lang/RT.java2
3 files changed, 5 insertions, 5 deletions
diff --git a/src/jvm/clojure/lang/BytecodeCompiler.java b/src/jvm/clojure/lang/BytecodeCompiler.java
index c8779ea0..61a8a5ad 100644
--- a/src/jvm/clojure/lang/BytecodeCompiler.java
+++ b/src/jvm/clojure/lang/BytecodeCompiler.java
@@ -890,7 +890,7 @@ static class InvokeExpr implements Expr{
PersistentVector argvs = PersistentVector.EMPTY;
for(int i = 0; i < args.count(); i++)
argvs = argvs.cons(((Expr) args.nth(i)).eval());
- return fn.applyTo(RT.seq(argvs));
+ return Reflector.prepRet(fn.applyTo(RT.seq(argvs)));
}
public void emit(C context, FnExpr fn, GeneratorAdapter gen){
diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java
index add1b67b..d93366f6 100644
--- a/src/jvm/clojure/lang/LispReader.java
+++ b/src/jvm/clojure/lang/LispReader.java
@@ -30,7 +30,7 @@ static Pattern symbolPat = Pattern.compile("[:]?([\\D&&[^:/]][^:/]*/)?[\\D&&[^:/
static Pattern intPat = Pattern.compile("[-+]?[0-9]+\\.?");
static Pattern ratioPat = Pattern.compile("([-+]?[0-9]+)/([0-9]+)");
static Pattern floatPat = Pattern.compile("[-+]?[0-9]+(\\.[0-9]+)?([eE][-+]?[0-9]+)?");
-
+static final Symbol SLASH = Symbol.create("/");
//static Pattern accessorPat = Pattern.compile("\\.[a-zA-Z_]\\w*");
//static Pattern instanceMemberPat = Pattern.compile("\\.([a-zA-Z_][\\w\\.]*)\\.([a-zA-Z_]\\w*)");
//static Pattern staticMemberPat = Pattern.compile("([a-zA-Z_][\\w\\.]*)\\.([a-zA-Z_]\\w*)");
@@ -223,14 +223,14 @@ static private Object readMember(PushbackReader r) throws Exception {
*/
static private Object interpretToken(String s) throws Exception{
- if(s.equals("null"))
+ if(s.equals("nil"))
{
return null;
}
else if(s.equals("/"))
{
- return Symbol.create("/");
+ return SLASH;
}
Object ret = null;
diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java
index 9727c56d..0fd64fe1 100644
--- a/src/jvm/clojure/lang/RT.java
+++ b/src/jvm/clojure/lang/RT.java
@@ -595,7 +595,7 @@ static public void print(Object x, Writer w) throws Exception{
}
}
if(x == null)
- w.write("null");
+ w.write("nil");
else if(x instanceof ISeq)
{
w.write('(');