Skip to content

Instantly share code, notes, and snippets.

@nkoguro

nkoguro/loop.scm Secret

Created Jun 1, 2020
Embed
What would you like to do?
(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