Method readDelimitedList

src/jvm/clojure/lang/EdnReader.java:729–774

(char delim, PushbackReader r, boolean isRecursive, Object opts)

}

public static List readDelimitedList(char delim, PushbackReader r, boolean isRecursive, Object opts) {
	final int firstline =
			(r instanceof LineNumberingPushbackReader) ?
			((LineNumberingPushbackReader) r).getLineNumber() : -1;

	ArrayList a = new ArrayList();

	for(; ;)
		{
		int ch = read1(r);

		while(isWhitespace(ch))
			ch = read1(r);

		if(ch == -1)
			{
			if(firstline < 0)
				throw Util.runtimeException("EOF while reading");
			else
				throw Util.runtimeException("EOF while reading, starting at line " + firstline);
			}

		if(ch == delim)
			break;

		IFn macroFn = getMacro(ch);
		if(macroFn != null)
			{
			Object mret = macroFn.invoke(r, (char) ch, opts);
			//no op macros return the reader
			if(mret != r)
				a.add(mret);
			}
		else
			{
			unread(r, ch);

			Object o = read(r, true, null, isRecursive, opts);
			if(o != r)
				a.add(o);
			}
		}


	return a;
}

public static class TaggedReader extends AFn{
	public Object invoke(Object reader, Object firstChar, Object opts){