diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-12-14 23:24:10 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-12-14 23:24:10 -0800 |
| commit | bbd240ceeefcf4181aa9205f4e743b32b5c68e1f (patch) | |
| tree | 957397737a8b0e76a40dfe79f191945e9f5aa09b /lisp/emacs-lisp/pcase.el | |
| parent | 100d5755ed82e6c47833a3559fb0a154381d5afd (diff) | |
| download | emacs-bbd240ceeefcf4181aa9205f4e743b32b5c68e1f.tar.gz emacs-bbd240ceeefcf4181aa9205f4e743b32b5c68e1f.tar.bz2 emacs-bbd240ceeefcf4181aa9205f4e743b32b5c68e1f.zip | |
Spelling fixes.
Diffstat (limited to 'lisp/emacs-lisp/pcase.el')
| -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) |