(define-syntax my-if
  (syntax-rules ()
    ((_ condition then_action else_action) (begin (let ((a (delay then_action))
                                                        (b (delay else_action)))
                                                    (or (and condition (force a)) (force b)))))))