about summary refs log tree commit diff
path: root/configs/shared/.emacs.d/wpc/list.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2019-12-11T10·31+0000
committerWilliam Carroll <wpcarro@gmail.com>2019-12-24T15·21+0000
commitb3342afbfa28da3353195e611bd9d19eb6a6c587 (patch)
treeb55e1e8a26d592eca28e9dbb76e17b1ac68fd44b /configs/shared/.emacs.d/wpc/list.el
parent6b456c1b7a4f6899f063a6e65355af51901d9c7a (diff)
Temporarily disable code that creates circular deps
After attempting to package some of my Elisp libraries using Nix, I exposed
circular dependencies between modules that has existed for awhile.

I'm temporarily disabling this code since I do not have time to refactor
everything. When I get around to packaging everything, I'll need to resolve
these issues.

For now, I must carry on.
Diffstat (limited to 'configs/shared/.emacs.d/wpc/list.el')
-rw-r--r--configs/shared/.emacs.d/wpc/list.el30
1 files changed, 16 insertions, 14 deletions
diff --git a/configs/shared/.emacs.d/wpc/list.el b/configs/shared/.emacs.d/wpc/list.el
index bc89c1326473..bcab3df09cde 100644
--- a/configs/shared/.emacs.d/wpc/list.el
+++ b/configs/shared/.emacs.d/wpc/list.el
@@ -49,7 +49,9 @@
 ;; Dependencies
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(require 'prelude)
+;; TODO: Move `prelude/assert' elsewhere so that I can require it without
+;; introducing the circular dependency of list.el -> prelude.el -> list.el.
+;;(require 'prelude)
 (require 'dash)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -179,19 +181,19 @@ Be leery of using this with things like alists.  Many data structures in Elisp
 ;; Tests
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(when list/tests?
-  (prelude/assert
-   (= 0
-      (list/length '())))
-  (prelude/assert
-   (= 5
-      (list/length '(1 2 3 4 5))))
-  (prelude/assert
-   (= 16
-      (list/reduce 1 (lambda (x acc) (+ x acc)) '(1 2 3 4 5))))
-  (prelude/assert
-   (equal '(2 4 6 8 10)
-          (list/map (lambda (x) (* x 2)) '(1 2 3 4 5)))))
+;; (when list/tests?
+;;   (prelude/assert
+;;    (= 0
+;;       (list/length '())))
+;;   (prelude/assert
+;;    (= 5
+;;       (list/length '(1 2 3 4 5))))
+;;   (prelude/assert
+;;    (= 16
+;;       (list/reduce 1 (lambda (x acc) (+ x acc)) '(1 2 3 4 5))))
+;;   (prelude/assert
+;;    (equal '(2 4 6 8 10)
+;;           (list/map (lambda (x) (* x 2)) '(1 2 3 4 5)))))
 
 (provide 'list)
 ;;; list.el ends here