mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove circular Elisp dependency

Browse source 
maybe.el -> prelude.el -> maybe.el

I should test for circular-dependencies in CI...
This commit is contained in:
William Carroll 2020-09-02 14:08:14 +01:00
parent 9c71c78abc
commit dffb224023
1 changed files with 0 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
emacs/.emacs.d/wpc/maybe.el
View file

@ -36,7 +36,6 @@
;; Dependencies ;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'prelude)
(require 'list) (require 'list)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -76,31 +75,5 @@
(funcall f x) (funcall f x)
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) (provide 'maybe)
;;; maybe.el ends here ;;; maybe.el ends here