diff options
| author | Kenichi Handa <handa@m17n.org> | 2011-12-15 16:51:01 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2011-12-15 16:51:01 +0900 |
| commit | 6080e055498c19ebd34495f204a8ad676eb09260 (patch) | |
| tree | 19a0544bb6b87a4bd4aa3208dd24f11147bbbf7c /lisp/emacs-lisp | |
| parent | 5fc1c122ccc781fb93dd81aacac368ac7bd973e6 (diff) | |
| parent | bbd240ceeefcf4181aa9205f4e743b32b5c68e1f (diff) | |
| download | emacs-6080e055498c19ebd34495f204a8ad676eb09260.tar.gz emacs-6080e055498c19ebd34495f204a8ad676eb09260.tar.bz2 emacs-6080e055498c19ebd34495f204a8ad676eb09260.zip | |
merge trunk
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index e6c4ccbbc50..6931ce75cb5 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -363,12 +363,12 @@ MATCH is the pattern that needs to be matched, of the form: (dolist (branch rest) (let* ((match (car branch)) (code&vars (cdr branch)) - (splitted + (split (pcase--split-match sym splitter match))) - (unless (eq (car splitted) :pcase--fail) - (push (cons (car splitted) code&vars) then-rest)) - (unless (eq (cdr splitted) :pcase--fail) - (push (cons (cdr splitted) code&vars) else-rest)))) + (unless (eq (car split) :pcase--fail) + (push (cons (car split) code&vars) then-rest)) + (unless (eq (cdr split) :pcase--fail) + (push (cons (cdr split) code&vars) else-rest)))) (cons (nreverse then-rest) (nreverse else-rest)))) (defun pcase--split-consp (syma symd pat) |