about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/set.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-31T16·05+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-31T16·08+0100
commitff8277625f43c1354b63333090f72c277c1f43f8 (patch)
tree901594d4fee2031477ae7821f5bc9ef40474232a /emacs/.emacs.d/wpc/set.el
parent5d3bb0b7eadc9efc423eb7ef8857fa6df256d254 (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.el34
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