19 lines
573 B
Racket
19 lines
573 B
Racket
#lang racket
|
|
(require "template-unsyntax-ellipsis.rkt"
|
|
syntax/stx
|
|
syntax/parse/experimental/template)
|
|
|
|
#;(syntax-case #'((1 2) (3 4)) ()
|
|
[((x ...) ...)
|
|
(escape (stx-map (λ (xᵢ) (+ (syntax-e xᵢ) 1))
|
|
(template (x ...))))])
|
|
|
|
(syntax-case #'((1 2) (3 4)) ()
|
|
[((x ...) ...)
|
|
(escape (stx-map (λ (xᵢ)
|
|
(define-syntax (a stx)
|
|
(datum->syntax stx (string->symbol xᵢ)))
|
|
(a)
|
|
(+ (syntax-e xᵢ) 1))
|
|
#'(x ...)))])
|