FIX typos

This commit is contained in:
Nathan Dwarshuis 2022-04-10 13:43:59 -04:00
parent e3c46dc0e6
commit 8b30bc8e49
1 changed files with 3 additions and 1 deletions

View File

@ -21,6 +21,8 @@
;;; Code: ;;; Code:
(require 'dash)
(defmacro either (key data) (defmacro either (key data)
"Make an either type. "Make an either type.
@ -28,7 +30,7 @@ KEY is either :left or :right and DATA is whatever goes in the
left/right slot." left/right slot."
(pcase key (pcase key
((or :left :right) `(list ,key ,data)) ((or :left :right) `(list ,key ,data))
(e (error "Invalid status key: %s" key)))) (_ (error "Invalid status key: %s" key))))
(defmacro either>>= (either form) (defmacro either>>= (either form)
"Bind EITHER to FORM where the right slot is bound to 'it'." "Bind EITHER to FORM where the right slot is bound to 'it'."