Skip to content

Instantly share code, notes, and snippets.

@danneu

danneu/process-things.clj

Last active December 24, 2015 11:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save danneu/6791614 to your computer and use it in GitHub Desktop.
Save danneu/6791614 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
process-things.clj
(defn process-things [things]
(loop [unprocessed things
processed []]
(try
(if-let [[thing & rest-things] unprocessed]
(do (process! thing)
(recur rest-things (conj processed thing)))
:done)
(catch FailedToProcess e
(process-things2 processed)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment