diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-09 16:57:55 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-09 16:57:55 +0000 |
| commit | e5b8b24e16caf251ec9bcaffdd3b573fd56c4886 (patch) | |
| tree | 7453a3e7065ec209527ce2390c0a70280e209cc5 | |
| parent | f068df679522b5a21417db669a17f8bda4bb337e (diff) | |
fixed `()
| -rw-r--r-- | src/jvm/clojure/lang/LispReader.java | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java index 53a7124d..bec3f065 100644 --- a/src/jvm/clojure/lang/LispReader.java +++ b/src/jvm/clojure/lang/LispReader.java @@ -721,10 +721,13 @@ public static class SyntaxQuoteReader extends AFn{ {
ret = RT.list(APPLY, HASHSET, RT.cons(CONCAT, sqExpandList(((IPersistentSet) form).seq())));
}
- else if(form instanceof ISeq)
+ else if(form instanceof ISeq || form instanceof IPersistentList)
{
ISeq seq = RT.seq(form);
- ret = RT.cons(CONCAT, sqExpandList(seq));
+ if(seq == null)
+ ret = PersistentList.EMPTY;
+ else
+ ret = RT.cons(CONCAT, sqExpandList(seq));
}
else
throw new UnsupportedOperationException("Unknown Collection type");
|