29 lines
851 B
Racket
29 lines
851 B
Racket
#lang racket/base
|
|
|
|
(provide
|
|
#%ornate-parens
|
|
#%double-parens
|
|
#%inequality-brackets
|
|
#%double-inequality-brackets
|
|
#%moon-faces
|
|
|
|
#%cjk-corner-quotes
|
|
)
|
|
|
|
(require (for-syntax racket/base))
|
|
|
|
(define-syntax (pass-through-list stx)
|
|
(syntax-case stx ()
|
|
[(ptm e ...) #'(e ...)]))
|
|
(define-syntax #%ornate-parens (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%double-parens (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%inequality-brackets (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%double-inequality-brackets (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%moon-faces (make-rename-transformer #'pass-through-list))
|
|
|
|
(define-syntax (pass-through-one stx)
|
|
(syntax-case stx ()
|
|
[(ptm e) #'e]))
|
|
(define-syntax #%cjk-corner-quotes (make-rename-transformer #'pass-through-one))
|
|
|