Skip to content

Instantly share code, notes, and snippets.

@devn

devn/core.clj

Created March 31, 2010 06:05
Show Gist options

  • Select an option

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

Select an option

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