emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

core/autoload/memoize: another refactor (restore doom-memoize)

Browse source
This commit is contained in:
Henrik Lissner 2017-03-02 00:42:58 -05:00
parent d7b69b3675
commit 33120cd64e
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/autoload/memoize.el
View file

@ -6,23 +6,25 @@
"A lookup table containing memoized functions. The keys are argument lists, "A lookup table containing memoized functions. The keys are argument lists,
and the value is the function's return value.") and the value is the function's return value.")
(defsubst doom--memoize-wrap (name) ;;;###autoload
"Return the memoized version of FUNC." (defun doom-memoize (name)
"Memoizes an existing function. NAME is a symbol."
(let ((func (symbol-function name))) (let ((func (symbol-function name)))
(put name 'function-documentation
(concat (documentation func) " (memoized)"))
(fset name
`(lambda (&rest args) `(lambda (&rest args)
,(documentation name)
(let ((key (cons ',name args))) (let ((key (cons ',name args)))
(or (gethash key doom-memoized-table) (or (gethash key doom-memoized-table)
(puthash key (apply ',func args) doom-memoized-table)))))) (puthash key (apply ',func args)
doom-memoized-table)))))))
;;;###autoload ;;;###autoload
(defmacro def-memoized! (name arglist &rest body) (defmacro def-memoized! (name arglist &rest body)
"Create a memoize'd function. NAME, ARGLIST, DOCSTRING and BODY "Create a memoize'd function. NAME, ARGLIST, DOCSTRING and BODY
have the same meaning as in `defun'." have the same meaning as in `defun'."
(declare (indent defun) (doc-string 3)) (declare (indent defun) (doc-string 3))
(when (stringp (car body))
(setcar body (concat (car body) " (memoized)")))
`(progn `(progn
(defun ,name ,arglist ,@body) (defun ,name ,arglist ,@body)
(fset ',name (doom--memoize-wrap ',name)))) (doom-memoize ',name)))