From ff8277625f43c1354b63333090f72c277c1f43f8 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 31 Aug 2020 17:05:31 +0100 Subject: 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! --- emacs/.emacs.d/wpc/irc.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/wpc/irc.el') diff --git a/emacs/.emacs.d/wpc/irc.el b/emacs/.emacs.d/wpc/irc.el index ce0e5ffcb952..1787c8566f17 100644 --- a/emacs/.emacs.d/wpc/irc.el +++ b/emacs/.emacs.d/wpc/irc.el @@ -45,7 +45,7 @@ ;; TODO: Assert that no two servers have a channel with the same name. We need ;; this because that's the assumption that underpins the `irc/channel->server' ;; function. This will probably be an O(n^2) operation. -(prelude/assert +(prelude-assert (set/distinct? (set/from-list (cycle/to-list (alist/get "irc.freenode.net" @@ -59,7 +59,7 @@ "Resolve an IRC server from a given CHANNEL." (let ((result (alist/find (lambda (k v) (cycle/contains? channel v)) server->channels))) - (prelude/assert (maybe-some? result)) + (prelude-assert (maybe-some? result)) result)) (defun irc/channel->cycle (server->channels channel) @@ -166,7 +166,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (when irc/enable-tests? - (prelude/assert + (prelude-assert (equal (irc/channel->server `(("irc.dairy.com" . ,(cycle/new "#cheese" "#milk")) ("irc.color.com" . ,(cycle/new "#red" "#blue"))) -- cgit 1.4.1