colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add comments to clarify compose's &rest handling

Browse Source
This commit is contained in:
Ivan Malison 2016-08-12 16:34:22 -07:00
parent aa647ee190
commit 8227739cfd
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dotfiles/emacs.d/README.org
View File

@ -470,6 +470,10 @@ new macro name and the -fn suffix.
(let* ((last-function (car (last funcs))) (let* ((last-function (car (last funcs)))
(arguments (imalison:help-function-arglist last-function)) (arguments (imalison:help-function-arglist last-function))
(call-arguments (delq '&optional arguments))) (call-arguments (delq '&optional arguments)))
;; When we have an &rest arguments there is no point in taking any
;; of the arguments by name, so we simply pass them all as an
;; argument list. See the comment below to understand how this
;; impacts the evaluation of the last function.
(when (memq '&rest arguments) (when (memq '&rest arguments)
(setq arguments '(&rest args)) (setq arguments '(&rest args))
(setq call-arguments '(args))) (setq call-arguments '(args)))
@ -484,6 +488,8 @@ new macro name and the -fn suffix.
"Builds funcalls of FUNCS applied to the arg." "Builds funcalls of FUNCS applied to the arg."
(if (equal (length funcs) 1) (if (equal (length funcs) 1)
(let ((last-function (car funcs))) (let ((last-function (car funcs)))
;; This hideous clause is here because it is the only way to
;; handle functions that take &rest args.
(when (memq '&rest (imalison:help-function-arglist last-function)) (when (memq '&rest (imalison:help-function-arglist last-function))
(setq last-function (apply-partially 'apply last-function))) (setq last-function (apply-partially 'apply last-function)))
`(,last-function ,@arguments)) `(,last-function ,@arguments))