使用recursion-Racket反转球拍中的列表

Question

这是我使用递归来反转列表的程序

(define l empty)
(define (reverse list)
  (cond
    [(empty? list)list]
    [((set! l(cons (car list) l))(reverse (cdr list)))])
   (display l))
(reverse '(1 2 3 4 ))

我的程序正确地给出输出＆＃39;（4 3 2 1）。但我也给出了一个错误， 说这个应用程序不是程序员。 我无法理解它是什么。请告诉我，我做错了什么