11 lines
191 B
Racket
11 lines
191 B
Racket
#lang scheme
|
|
|
|
(require (for-syntax syntax/parse))
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define-syntax (field-access stx)
|
|
(syntax-parse stx
|
|
[(_ field object)
|
|
#'(get-field field object)]))
|