Scheme / Dr Racket - Promedio de Notas

Enunciado: un docente quiere ver el desempeño de los estudiantes según las calificaciones que obtienen durante un periodo, sabiendo que el docente tiene los siguientes datos por estudiante; nombre, código y nota que tiene en el periodo académico.

el desempeño del estudiante se clasifica de la siguiente manera:

- Superior para la nota de 4.6 a 5 alto para la nota de 4 a 4.5
- básico para la nota de 3 a 4
- bajo para la nota de 1 a 2.9

toma de pantalla promedio de notas de un estudiante scheme

; ==========================================================
(define-struct estudiante (nombre id nota))
(define-struct salida (nombre desempeño))

(define (punto2 estud)
  (cond
    [(not (estudiante? estud) ) "dato invalido"]
    [(and (>= (estudiante-nota estud) 4.6) (<= (estudiante-nota estud) 5)) (make-salida (estudiante-nombre estud) "superior")]
    [(>= (estudiante-nota estud) 4.0) (make-salida (estudiante-nombre estud) "alto")]
    [(>= (estudiante-nota estud)3.0) (make-salida (estudiante-nombre estud) "basico")]
    [(>= (estudiante-nota estud) 1.0) (make-salida (estudiante-nombre estud) "bajo")]
    [else "dato invalido"]))

;prueba
(punto2 (make-estudiante 'pedro 14 4.9))
; ==========================================================