add #:as patterns

[dedbox]

Like #:if patterns, but the target is a pattern instead of an expression.

Example:

(φ (Some v1) #:as v #:if (number? v1) (+ v 1))