if as a normal function in lisp

gistfile1.scm

(define (new-if predicate then-clause else-clause)
 (cond (predicate then-clause)
       (else else-clause)))

(define (p) (p))

(define (new-test x)
 (new-if (= x 0)
    1
    (p)))

(new-test 0)