Skip to content

Instantly share code, notes, and snippets.

@amalloy

amalloy/gist:3790279

Created September 26, 2012 20:11
Show Gist options
  • Save amalloy/3790279 to your computer and use it in GitHub Desktop.
Save amalloy/3790279 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(->> (if (and (seq keyseq) (= f adjoin))
(let [[from-id & keys] keyseq]
(for [[to-id edge] (apply edges-map keys (assert-length 1 args))]
((graph/update-in-node incoming [to-id :edges from-id]) read')))
(...))
(apply concat)
(into source-actions))
;; vs
(into source-actions
(apply concat
(if (and (seq keyseq) (= f adjoin))
(let [[from-id & keys] keyseq]
(for [[to-id edge] (apply edges-map keys (assert-length 1 args))]
((graph/update-in-node incoming [to-id :edges from-id]) read')))
(...))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment