Skip to content

Instantly share code, notes, and snippets.

@tomjack

tomjack/level-0.clj Secret

Created October 31, 2009 14:59
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 tomjack/5f59ff4e091bc015a8a6 to your computer and use it in GitHub Desktop.
Save tomjack/5f59ff4e091bc015a8a6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
level-0.clj
(defmacro with-socket [[in-stream-var out-stream-var] {:keys [host port]} & body]
`(let [sock# (java.net.Socket. ~host ~port)
~in-stream-var (.getInputStream sock#)
~out-stream-var (.getOutputStream sock#)]
(try ~@body
(finally (.close sock#)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment