racket - 让语法解析与自定义运算符一起使用

Question

我有自己的+ -etc 版本，想知道是否有办法使以下代码工作？

(syntax-parse #'(+ 1 2)
  [(op e1 e2) #'(my-op e1 e2)])

我想这样做的一种“漫长”方式是：

(syntax-parse #'(+ 1 2)
  [(op e1 e2) #:when (equal? op '+) #'(my-+ e1 e2)]
  ...)

标签： racket