diff options
author | William Carroll <wpcarro@gmail.com> | 2020-09-02T13·08+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-09-02T13·08+0100 |
commit | dffb224023e3a663afc4b7461a94c0777fa8dd97 (patch) | |
tree | 2b3cc9b9bcbc4397e6979101e2a168a83a95f1cb | |
parent | 9c71c78abcdaa4ce46aaee964494659d5283e5d6 (diff) |
Remove circular Elisp dependency
maybe.el -> prelude.el -> maybe.el I should test for circular-dependencies in CI...
-rw-r--r-- | emacs/.emacs.d/wpc/maybe.el | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/emacs/.emacs.d/wpc/maybe.el b/emacs/.emacs.d/wpc/maybe.el index dfb9a69e6bc8..270ee909a8e8 100644 --- a/emacs/.emacs.d/wpc/maybe.el +++ b/emacs/.emacs.d/wpc/maybe.el @@ -36,7 +36,6 @@ ;; Dependencies ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(require 'prelude) (require 'list) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -76,31 +75,5 @@ (funcall f x) x)) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Tests -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(when maybe--run-tests? - ;; nil? - (prelude-assert (maybe-nil? nil)) - (prelude-refute (maybe-nil? t)) - ;; some? - (prelude-assert (maybe-some? 10)) - (prelude-refute (maybe-some? nil)) - ;; nils? - (prelude-assert (maybe-nils? nil nil nil nil)) - (prelude-refute (maybe-nils? nil t nil t)) - ;; somes? - (prelude-assert (maybe-somes? t 10 '(1 2 3) "some")) - (prelude-refute (maybe-somes? t nil '(1 2 3) "some")) - ;; default - (prelude-assert - (and (= 0 (maybe-default 5 0)) - (= 5 (maybe-default 5 nil)))) - ;; map - (prelude-assert - (and (= 2 (maybe-map #'1+ 1)) - (eq nil (maybe-map #'1+ nil))))) - (provide 'maybe) ;;; maybe.el ends here |