Skip to content

Instantly share code, notes, and snippets.

@devn

devn/core.clj

Created March 31, 2010 18:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save devn/350662 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save devn/350662 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(defn categorize-sexps []
(reduce (fn [result, code]
(try
(let [r (*sandbox* code)]
(update-in result [:good]
conj [code (pr-str r)]))
(catch Exception e
(update-in result [:bad]
conj [code nil]))))
{}
(all-expressions logfiles)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment