13 lines
210 B
Racket
13 lines
210 B
Racket
#lang racket/base
|
|
(require syntax/parse
|
|
(for-template racket/base))
|
|
|
|
(define-syntax-class sre
|
|
#:attributes (machine)
|
|
|
|
(pattern pat:expr
|
|
#:attr machine
|
|
#'1))
|
|
|
|
(provide sre)
|