From e5b8b24e16caf251ec9bcaffdd3b573fd56c4886 Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Mon, 9 Feb 2009 16:57:55 +0000 Subject: fixed `() --- src/jvm/clojure/lang/LispReader.java | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src') 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"); -- cgit v1.2.3-70-g09d2