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.
This commit is contained in:
William Carroll 2019-12-11 10:31:57 +00:00
parent 6b456c1b7a
commit b3342afbfa
3 changed files with 38 additions and 26 deletions

View file

@ -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