(import (chicken condition)) (define (add-and-double x y) (with-exception-handler (lambda (e) (+ e y)) (lambda () (* (signal x) 2))))