Racket programming

How to fix this while macros?

(define-syntax (while condition body ...) (syntax-rule () (while condition body ...)))

(define x 5)

(while (< x 3) (displayln x) (set! x (+ x 1)))