(import (chicken condition))

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