Less redundant keys

nextjournal · Jan 9, 2024 · 2cd042f · 2cd042f
1 parent 75bd0f8
commit 2cd042f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/nextjournal/clerk/analyzer.clj b/src/nextjournal/clerk/analyzer.clj
@@ -246,7 +246,7 @@
   (if var var id))
 
 (defn ->ana-keys [{:as analyzed :keys [form vars id]}]
-  (concat vars [(->key analyzed)]))
+  (conj (set vars) (->key analyzed)))
 
 #_(->> (nextjournal.clerk.eval/eval-string "(rand-int 100) (rand-int 100) (rand-int 100)") :blocks (mapv #(-> % :result :nextjournal/value)))