diff options
Diffstat (limited to 'emacs/.emacs.d/wpc/maybe.el')
| -rw-r--r-- | emacs/.emacs.d/wpc/maybe.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/emacs/.emacs.d/wpc/maybe.el b/emacs/.emacs.d/wpc/maybe.el index dc5e9332f701..1e46b6643d51 100644 --- a/emacs/.emacs.d/wpc/maybe.el +++ b/emacs/.emacs.d/wpc/maybe.el @@ -82,23 +82,23 @@ (when maybe--run-tests? ;; nil? - (prelude/assert (maybe-nil? nil)) - (prelude/refute (maybe-nil? t)) + (prelude-assert (maybe-nil? nil)) + (prelude-refute (maybe-nil? t)) ;; some? - (prelude/assert (maybe-some? 10)) - (prelude/refute (maybe-some? nil)) + (prelude-assert (maybe-some? 10)) + (prelude-refute (maybe-some? nil)) ;; nils? - (prelude/assert (maybe-nils? nil nil nil nil)) - (prelude/refute (maybe-nils? nil t nil t)) + (prelude-assert (maybe-nils? nil nil nil nil)) + (prelude-refute (maybe-nils? nil t nil t)) ;; somes? - (prelude/assert (maybe-somes? t 10 '(1 2 3) "some")) - (prelude/refute (maybe-somes? t nil '(1 2 3) "some")) + (prelude-assert (maybe-somes? t 10 '(1 2 3) "some")) + (prelude-refute (maybe-somes? t nil '(1 2 3) "some")) ;; default - (prelude/assert + (prelude-assert (and (= 0 (maybe-default 5 0)) (= 5 (maybe-default 5 nil)))) ;; map - (prelude/assert + (prelude-assert (and (= 2 (maybe-map #'1+ 1)) (eq nil (maybe-map #'1+ nil))))) |