]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/trie/trie.el
* trie.el (trie--node-data): Simplify.
[gnu-emacs-elpa] / packages / trie / trie.el
index f4d1ee901a32a914ad0a6da2a0df47a3c51ef8b5..894aa600ba3f8f00a0928c2a78e4b0e60386433d 100644 (file)
 ;; data is stored in the subtree cell of a terminal node
 (defalias 'trie--node-data 'trie--node-subtree)
 
-(defsetf trie--node-data trie--node-set-data)
-(defmacro trie--node-set-data (node data)
+(defsetf trie--node-data (node) (data)
   `(setf (trie--node-subtree ,node) ,data))
 
 (defmacro trie--node-data-p (node)