racket - 関数によって返されるリストの結果がおかしく見えるのはなぜですか?

Question

(define (evenList xs)
    (cond
        ((null? xs) '())   
        ((eq? (cdr xs) '()) '()) 
        (else (cons (cadr xs) (evenList (cddr xs))))))

このコードを使用していますが、希望どおりにリストが作成されません。(evenList (list 1 2 3 4))は REPL で に評価され(cons 2 (cons 4 '()))ますが、 のようになりたいです(list 2 4)。