Drop -unencoded slot entirely when nil

clojure · Aug 21, 2012 · 25d6bd9 · 25d6bd9
1 parent 275f79f
commit 25d6bd9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/tools/nrepl/transport.clj b/src/main/clojure/clojure/tools/nrepl/transport.clj
@@ -74,7 +74,9 @@
         #(let [payload   (be/read-bencode in)
                unencoded (<bytes (payload "-unencoded"))
                to-decode (apply dissoc payload "-unencoded" unencoded)]
-           (merge payload {"-unencoded" unencoded} (<bytes to-decode)))
+           (merge (dissoc payload "-unencoded")
+                  (when unencoded {"-unencoded" unencoded})
+                  (<bytes to-decode)))
         #(locking out
            (doto out
              (be/write-bencode %)