die größte Zahl in einer Liste im Schema erhalten

Ich verstehe nicht, warum meine Funktion, die größte Zahl zu bekommen, nicht funktionieren will. Wenn ich das richtig überlege, wenn das erste Atom kleiner als das zweite Atom ist, rufen Sie die Funktion abzüglich des ersten Atoms in der Liste auf, ansonsten konstruieren Sie das erste Atom, das größte, mit dem Rest der Liste. relevanter Code:

(define (getlargest a_list)
  (cond
    ((null? a_list) '())
    ((< (car a_list) (cadr a_list)) (getlargest (cdr a_list)))
    (else (cons (car a_list) (getlargest(cdr a_list))))))