module/exceptions.scm


1
2
3
4
5

(define-module (exceptions)
  #:export (throw-returnable))

(define-syntax-rule (throw-returnable symb args ...)
  (call/cc (lambda (cont) (throw symb cont args ...))))