8 lines
153 B
Scheme
8 lines
153 B
Scheme
#lang scheme
|
|
(provide #%infix)
|
|
|
|
(require scheme/stxparam)
|
|
(define-syntax-parameter #%infix
|
|
(λ (stx)
|
|
(syntax-case stx ()
|
|
[(_ expr) #'expr]))) |