получение синтаксического разбора для работы с пользовательскими операторами

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)]
  ...)