Estructura dentro de estructura

;.

(define-struct habitacion (c e l))

(define-struct cama (largo ancho))
(define-struct estanteria (nombre descripcion))
(define-struct lampara (marca alto ancho))

;;Autor: Carlos A Delgado
;;Fecha: 01 de Agosto de 2020
;;Contrato: revisar-cama: habitación -> texto
;;Descripción: Esta función nos permite saber si la cama en una habitación es grande o pequeña
;;Ejemplos
;;(revisar-cama (make-habitacion (make-cama 8 90) (make-estanteria "J" "Es bonita") (make-lampara "LG" 10 20))) "pequeña"
;;(revisar-cama (make-habitacion (make-cama 18 90) (make-estanteria "J" "Es bonita") (make-lampara "LG" 10 20))) "grande"
(define (revisar-cama hab)
  (if
   (habitacion? hab)
   (if
    (<= (cama-largo (habitacion-c hab)) 10)
    "pequeña"
    "grande"
    )
   (error "Debe ingresarse una estructura tipo habitación")
   ))

(define habitacionA (make-habitacion (make-cama 8 90) (make-estanteria "J" "Es bonita") (make-lampara "LG" 10 20)))
(check-expect (revisar-cama habitacionA) "pequeña")
(check-expect (revisar-cama (make-habitacion (make-cama 18 90) (make-estanteria "J" "Es bonita") (make-lampara "LG" 10 20))) "grande")