17 lines
528 B
Scheme
17 lines
528 B
Scheme
#lang scheme
|
|
(require "notify.ss")
|
|
|
|
(define-syntax-rule (retry-until-success msg expr ...)
|
|
(retry-until-success* msg (lambda () expr ...)))
|
|
|
|
(define (retry-until-success* msg thunk)
|
|
(notify! msg)
|
|
(thunk)
|
|
#;(with-handlers ([exn:fail? (lambda (x)
|
|
((error-display-handler) (format "Error trying to: ~a: ~a" msg (exn-message x)) x)
|
|
(notify! "Retrying...")
|
|
(retry-until-success* msg thunk))])
|
|
(thunk)))
|
|
|
|
(provide retry-until-success)
|
|
|