From 4404a552cd5b11357e6082aa7d09e7976175ceae Mon Sep 17 00:00:00 2001 From: Dan Burkert Date: Fri, 12 Jul 2013 00:27:10 -0400 Subject: [PATCH] fix def-transfer with no options map null pointer --- src/byte_streams.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/byte_streams.clj b/src/byte_streams.clj index 1b5e4f2..17728fe 100644 --- a/src/byte_streams.clj +++ b/src/byte_streams.clj @@ -77,7 +77,7 @@ (eval `(fn [~(with-meta (first params) {:tag src}) ~(with-meta (second params) {:tag dst}) - ~(if-let [options (nth params 2)] options (gensym "options"))] + ~(if-let [options (get params 2)] options (gensym "options"))] ~@body))))) (defn seq-of [x]