A hack to make struct access more terse

gistfile1.rkt

#lang racket

(require (for-syntax syntax/parse racket/syntax))

(define-values (prop:indexable indexable? indexable-accessor)
  (make-struct-type-property 'indexable))

(define-syntax (% stx)
  (syntax-parse stx
    [(_ thing index)
     #'((dict-ref (force (indexable-accessor thing)) (quote index))
        thing)]))

(define-syntax (istruct stx)
  (syntax-parse stx
    [(_ name (field ...) other ...)
     (with-syntax ([(accessor ...)
                    (map (λ (f) (format-id stx "~a-~a" #'name f))
                         (syntax->list #'(field ...)))])
       #`(struct name (field ...)
           #:property prop:indexable
           (delay (make-hash `((field . ,accessor) ...)))
           other ...))]))

gistfile2.txt

> (istruct foo (x y))
> (define a-foo (foo 3 2))
> (% a-foo y)
2