Skip to content

Instantly share code, notes, and snippets.

@nkoguro

nkoguro/loop.scm Secret

Created June 1, 2020 07:04
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 nkoguro/8e5e124837e5ae67a0b8a79e4bb0d218 to your computer and use it in GitHub Desktop.
Save nkoguro/8e5e124837e5ae67a0b8a79e4bb0d218 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
loop.scm
(define counter 0)
(define (main args)
(let loop ()
(guard (e (else (print "catch!")
(raise e)))
(inc! counter)
(if (< counter 10)
(loop)
(error "err"))))
0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment