Racket 球拍中的匹配文字

如何匹配racket中的文字？这似乎不起作用：

(define (foo e)
  (match e
    [(list + e1 e2)  "+"]
    [(list - e1 e2)  "-"]))

---

它为

（foo'（+12））

和

（foo'（-12））

返回“+”您想要的模式

（list'+e1e2）

和

（list'-e1e2）

（使用

'

s！），因为在其他情况下

+

和

-

被视为普通标识符并匹配任何内容，就像

e1

和

e2

do一样