From dffb224023e3a663afc4b7461a94c0777fa8dd97 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Wed, 2 Sep 2020 14:08:14 +0100 Subject: Remove circular Elisp dependency maybe.el -> prelude.el -> maybe.el I should test for circular-dependencies in CI... --- emacs/.emacs.d/wpc/maybe.el | 27 --------------------------- 1 file changed, 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 -- cgit 1.4.1