From dfa76324f7b750feaa587e5495af377a917c10c9 Mon Sep 17 00:00:00 2001 From: Janos Erdos Date: Thu, 26 Feb 2015 23:55:59 +0100 Subject: [PATCH] Update collections.clj fixed typo ?key -> ?key0 --- src/kibit/rules/collections.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/kibit/rules/collections.clj b/src/kibit/rules/collections.clj index 4fc9d43..622c1b6 100644 --- a/src/kibit/rules/collections.clj +++ b/src/kibit/rules/collections.clj @@ -5,9 +5,9 @@ ;;vector [(conj [] . ?x) (vector . ?x)] [(into [] ?coll) (vec ?coll)] - [(assoc ?coll ?key (assoc (?key0 ?coll) ?key1 ?val)) (assoc-in ?coll [?key0 ?key1] ?val)] - [(assoc ?coll ?key (assoc (?coll ?key0) ?key1 ?val)) (assoc-in ?coll [?key0 ?key1] ?val)] - [(assoc ?coll ?key (assoc (get ?coll ?key0) ?key1 ?val)) (assoc-in ?coll [?key0 ?key1] ?val)] + [(assoc ?coll ?key0 (assoc (?key0 ?coll) ?key1 ?val)) (assoc-in ?coll [?key0 ?key1] ?val)] + [(assoc ?coll ?key0 (assoc (?coll ?key0) ?key1 ?val)) (assoc-in ?coll [?key0 ?key1] ?val)] + [(assoc ?coll ?key0 (assoc (get ?coll ?key0) ?key1 ?val)) (assoc-in ?coll [?key0 ?key1] ?val)] [(assoc ?coll ?key (?fn (?key ?coll) . ?args)) (update-in ?coll [?key] ?fn . ?args)] [(assoc ?coll ?key (?fn (?coll ?key) . ?args)) (update-in ?coll [?key] ?fn . ?args)] [(assoc ?coll ?key (?fn (get ?coll ?key) . ?args)) (update-in ?coll [?key] ?fn . ?args)]