Skip to content

Instantly share code, notes, and snippets.

@BobuSumisu

BobuSumisu/simple-try-ignore-error.scm

Last active August 29, 2015 13: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 BobuSumisu/10765793 to your computer and use it in GitHub Desktop.
Save BobuSumisu/10765793 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
simple-try-ignore-error.scm
(define-syntax try
(syntax-rules (catch)
((try try-body ... (catch catch-body ...))
(handle-exceptions exn ((lambda () catch-body ...)) ((lambda () try-body ...))))))
(try (socket-receive sock 4096)
(catch (print "[!] No HELLO from server")
(socket-close sock)
(exit 1)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment