maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Lint prelude.el

Browse source 
This was a doozey because I use it everywhere. Is there a better way to globally
rename things? Aye aye aye... computers, man!
This commit is contained in:
William Carroll 2020-08-31 17:05:31 +01:00
parent 5d3bb0b7ea
commit ff8277625f
29 changed files with 163 additions and 164 deletions
Download patch file Download diff file Expand all files Collapse all files

6
emacs/.emacs.d/wpc/struct.el
View file

@ -78,11 +78,11 @@ This is an adapter interface to `setf'."
(cl-defstruct dummy name age)
(defvar test-dummy (make-dummy :name "Roofus" :age 19))
(struct/set! dummy name "Doofus" test-dummy)
(prelude/assert (string= "Doofus" (dummy-name test-dummy)))
(prelude-assert (string= "Doofus" (dummy-name test-dummy)))
(let ((result (struct/set dummy name "Shoofus" test-dummy)))
;; Test the immutability of `struct/set'
(prelude/assert (string= "Doofus" (dummy-name test-dummy)))
(prelude/assert (string= "Shoofus" (dummy-name result)))))
(prelude-assert (string= "Doofus" (dummy-name test-dummy)))
(prelude-assert (string= "Shoofus" (dummy-name result)))))
(provide 'struct)
;;; struct.el ends here