Anaphoric macros like when-let

[Arun Isaac]

Is there a Scheme or Guile equivalent to Emacs Lisp's `when-let' ?

Basically, I'm looking for a shorthand to express this:

(let ((x (foo))
  (when x
    (bar x))))

as this:

(when-let (x (foo))
  (bar x))