#lang racket
(define-syntax or-2
  (syntax-rules ()
    [(_ e1 e2)
     (let ([v e1])
       (if v v e2))]))

(let ([v 1])
  (or-2 false v))