获取语​​法解析以与自定义运算符一起使用

Question

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

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

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

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