diff options
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 289265abf27..fc5474ecc43 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el | |||
| @@ -175,8 +175,8 @@ Emacs Lisp manual for more information and examples." | |||
| 175 | ;; (when (gethash (car cases) pcase--memoize-2) | 175 | ;; (when (gethash (car cases) pcase--memoize-2) |
| 176 | ;; (message "pcase-memoize failed because of eq test on %S" | 176 | ;; (message "pcase-memoize failed because of eq test on %S" |
| 177 | ;; (car cases))) | 177 | ;; (car cases))) |
| 178 | (when data | 178 | ;; (when data |
| 179 | (message "pcase-memoize: equal first branch, yet different")) | 179 | ;; (message "pcase-memoize: equal first branch, yet different")) |
| 180 | (let ((expansion (pcase--expand exp cases))) | 180 | (let ((expansion (pcase--expand exp cases))) |
| 181 | (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize) | 181 | (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize) |
| 182 | ;; (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize-1) | 182 | ;; (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize-1) |