Skip to content

Instantly share code, notes, and snippets.

@richo

richo/core.clj

Created November 14, 2013 01:13
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 richo/7459554 to your computer and use it in GitHub Desktop.
Save richo/7459554 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(defn mainloop [tables since]
(let [threads (map (fn [table]
(Thread. (fn [] (mainthread table since)))) tables)]
(doseq [thread threads] (.start thread))
(doseq [thread threads] (.join thread))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment