用于重命名线程代码的宏不起作用

Question

我正在尝试创建一个允许我使用＆＃39; thr＆＃39;来调用线程宏的宏。名字而不是＆＃39;〜＆gt;＆＃39;码。我试过了：

(require threading)
(define-syntax-rule (thr body ...)
  (require threading)
  (~> body ... ) )

(thr " checking " string-trim println)

但它不起作用。错误是：

 define-syntax-rule: too many forms in: (~> body)

我也尝试过只有一个身体的声明，但它仍然不起作用：

(define-syntax-rule (thr2 body )
  (require threading)
  (~> body ) )

Answer 1

在Racket中执行此操作的最短路径是：

(define-syntax thr (make-rename-transformer #'~>))