Fecha mayor menor -incompleto 22-03-2013

(define-struct fecha (dia mes año))
(define (proximafecha fecha1 fecha2)
  (if (and(struct? fecha1)(struct? fecha2))
      (cond
        [(= (fecha-año fecha1)(fecha-año fecha2))
         (cond
           [(= (fecha-mes fecha1)(fecha-mes fecha2))
            (cond
              [(= (fecha-dia fecha1)(fecha-dia fecha2))
               "misma fecha"]
              [(> (fecha-dia fecha1)(fecha-dia fecha2))
               fecha1]
              [(< (fecha-dia fecha1)(fecha-dia fecha2))
               fecha2])]
           [(> (fecha-mes fecha1)(fecha-mes fecha2))
             fecha1]
           [(< (fecha-mes fecha1)(fecha-mes fecha2))
             fecha2])]
        [(> (fecha-año fecha1)(fecha-año fecha2))
         fecha1]
        [(< (fecha-año fecha1)(fecha-año fecha2))
         fecha2])
      "Datos incorrectos"))
;ejemplo
(define independencia (make-fecha 02 02 1755))
(define documentacion (make-fecha 01 02 2014))
(proximafecha independencia documentacion)