branch: externals/trie
commit 4efa42de4fc231d460dd5452d93e096f901e042c
Author: Toby S. Cubitt <toby-predict...@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predict...@dr-qubit.org>
Fix trie--node-data defsetf, so it compiles in latest Emacs trunk.
---
trie.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/trie.el b/trie.el
index 509887c..8156d17 100644
--- a/trie.el
+++ b/trie.el
@@ -319,7 +319,9 @@
;; data is stored in the subtree cell of a terminal node
(defalias 'trie--node-data 'trie--node-subtree)
-(defsetf trie--node-data (node) `(setf (trie--node-subtree ,node)))
+(defsetf trie--node-data trie--node-set-data)
+(defmacro trie--node-set-data (node data)
+ `(setf (trie--node-subtree ,node) ,data))
(defmacro trie--node-data-p (node)
;; Return t if NODE is a data node, nil otherwise.
