9 lines
242 B
Racket
9 lines
242 B
Racket
#lang racket
|
|
(require syntax/parse
|
|
syntax/parse/experimental/template)
|
|
(provide mf original-template)
|
|
(define-template-metafunction (mf stx)
|
|
#'ok-metafunction-official-1)
|
|
(define-syntax-rule (original-template t)
|
|
(template t))
|
|
|