diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-01-16 18:46:02 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-01-16 18:46:02 +0000 |
| commit | 345aff14826f375f9809bd8a6b36b6b8b9927100 (patch) | |
| tree | 67690aa5ef65e6899699c0d9db118cd0d31151ff | |
| parent | 3f3b97da35f1bdfbae339ea810ee1b13d49ef4e6 (diff) | |
coerce all Boolean false returns to Boolean.FALSE
| -rw-r--r-- | clojure.iml | 3 | ||||
| -rw-r--r-- | src/jvm/clojure/lang/Reflector.java | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/clojure.iml b/clojure.iml index ce7869b6..71c2e404 100644 --- a/clojure.iml +++ b/clojure.iml @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<module relativePaths="true" type="JAVA_MODULE" version="4"> +<module version="4" relativePaths="true" type="JAVA_MODULE"> <component name="BuildJarSettings"> <containerInfo> <containerElement type="module" name="clojure"> @@ -11,6 +11,7 @@ <setting name="buildJar" value="true" /> <setting name="mainClass" value="clojure.lang.Compiler" /> </component> + <component name="ModuleRootManager" /> <component name="NewModuleRootManager" inherit-compiler-output="false"> <output url="file://$MODULE_DIR$/classes" /> <exclude-output /> diff --git a/src/jvm/clojure/lang/Reflector.java b/src/jvm/clojure/lang/Reflector.java index 867f3590..6b330887 100644 --- a/src/jvm/clojure/lang/Reflector.java +++ b/src/jvm/clojure/lang/Reflector.java @@ -325,6 +325,8 @@ static boolean isCongruent(Class[] params, Object[] args){ static Object prepRet(Class c, Object x){ // if(c == boolean.class) // return ((Boolean) x).booleanValue() ? RT.T : null; + if(x instanceof Boolean && !((Boolean) x).booleanValue()) + return Boolean.FALSE; return x; } } |