(define (foo-new-if x y)
  ((lambda (p e1 e2)
    (cond (p e1)
          (else e2)))
    (= y 0) x (/ x y)))