17 lines
534 B
Plaintext
17 lines
534 B
Plaintext
#lang honu/core
|
|
|
|
provide withSyntax;
|
|
|
|
macro withSyntax () {
|
|
_ [variable:identifier expr:expression] { b ... /* body:statement */ }; } {
|
|
#sx scheme:syntax #sx
|
|
(with-syntax ([variable_result (datum->syntax (real-syntax expr) expr_result
|
|
(real-syntax expr)
|
|
(real-syntax expr))])
|
|
(honu-unparsed-begin b ...))
|
|
}
|
|
|
|
|
|
|
|
// applySchemeSyntax(#sx(real-syntax (with-syntax ([variable_result expr_result]) (honu-unparsed-begin b ...))))
|