psearch: 基于 pcase 的 elisp 代码搜索工具

请问下面这个是特性还是Bug呀?

如果执行:

(psearch-replace '`(foo . ,args)
                 '`(bar () ,@args))

那么 (foo 'a 'b) 会变成 (bar ),而不是 (bar () 'a 'b)