diff options
author | William Carroll <wpcarro@gmail.com> | 2020-08-31T16·05+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-08-31T16·08+0100 |
commit | ff8277625f43c1354b63333090f72c277c1f43f8 (patch) | |
tree | 901594d4fee2031477ae7821f5bc9ef40474232a /emacs/.emacs.d/wpc/set.el | |
parent | 5d3bb0b7eadc9efc423eb7ef8857fa6df256d254 (diff) |
Lint prelude.el
This was a doozey because I use it everywhere. Is there a better way to globally rename things? Aye aye aye... computers, man!
Diffstat (limited to 'emacs/.emacs.d/wpc/set.el')
-rw-r--r-- | emacs/.emacs.d/wpc/set.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/emacs/.emacs.d/wpc/set.el b/emacs/.emacs.d/wpc/set.el index ff2db75d94ab..d15fa0653e6b 100644 --- a/emacs/.emacs.d/wpc/set.el +++ b/emacs/.emacs.d/wpc/set.el @@ -113,59 +113,59 @@ (when set/enable-testing? ;; set/distinct? - (prelude/assert + (prelude-assert (set/distinct? (set/new 'one 'two 'three) (set/new 'a 'b 'c))) - (prelude/refute + (prelude-refute (set/distinct? (set/new 1 2 3) (set/new 3 4 5))) - (prelude/refute + (prelude-refute (set/distinct? (set/new 1 2 3) (set/new 1 2 3))) ;; set/equal? - (prelude/refute + (prelude-refute (set/equal? (set/new 'a 'b 'c) (set/new 'x 'y 'z))) - (prelude/refute + (prelude-refute (set/equal? (set/new 'a 'b 'c) (set/new 'a 'b))) - (prelude/assert + (prelude-assert (set/equal? (set/new 'a 'b 'c) (set/new 'a 'b 'c))) ;; set/intersection - (prelude/assert + (prelude-assert (set/equal? (set/new 2 3) (set/intersection (set/new 1 2 3) (set/new 2 3 4)))) ;; set/{from,to}-list - (prelude/assert (equal '(1 2 3) + (prelude-assert (equal '(1 2 3) (->> '(1 1 2 2 3 3) set/from-list set/to-list))) (let ((primary-colors (set/new "red" "green" "blue"))) ;; set/subset? - (prelude/refute + (prelude-refute (set/subset? (set/new "black" "grey") primary-colors)) - (prelude/assert + (prelude-assert (set/subset? (set/new "red") primary-colors)) ;; set/superset? - (prelude/refute + (prelude-refute (set/superset? primary-colors (set/new "black" "grey"))) - (prelude/assert + (prelude-assert (set/superset? primary-colors (set/new "red" "green" "blue"))) - (prelude/assert + (prelude-assert (set/superset? primary-colors (set/new "red" "blue")))) ;; set/empty? - (prelude/assert (set/empty? (set/new))) - (prelude/refute (set/empty? (set/new 1 2 3))) + (prelude-assert (set/empty? (set/new))) + (prelude-refute (set/empty? (set/new 1 2 3))) ;; set/count - (prelude/assert (= 0 (set/count (set/new)))) - (prelude/assert (= 2 (set/count (set/new 1 1 2 2))))) + (prelude-assert (= 0 (set/count (set/new)))) + (prelude-assert (= 2 (set/count (set/new 1 1 2 2))))) (provide 'set) ;;; set.el ends here |