gistfile1.rkt

(define (datum-equal? x y)
  (let-values (((x y) (if (and (syntax? x) (syntax? y))
                          (values (syntax->datum x) (syntax->datum y))
                          (values x y))))
    (let-values (((x y) (if (and (struct? x) (struct? y))
                            (values (struct->vector x) (struct->vector y))
                            (values x y))))
      (if (and (sequence? x) (sequence? y))
          (for/and ([x-element x]
                    [y-element y])
            (datum-equal? x-element y-element))
          (equal? x y)))))

(define-binary-check (check-datum-equal? datum-equal? actual expected))