jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WIP: Don't use -let?

Browse source 
Grasping at straws here...
This commit is contained in:
Adam Porter 2021-07-05 02:37:18 -05:00
parent 3d6747f427
commit b7c0edfc71
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
org-ql.el
View file

@ -1162,8 +1162,11 @@ result form."
;; do with the version of map.el being used (although it happens locally even in
;; a clean sandbox, which should produce the same result as on CI). Maybe the
;; real fix would be to make makem.sh support dependency versions...
`(-let (((&keys :from :to :on :type) rest)
(result))
`(let ((from (plist-get rest :from))
(to (plist-get rest :to))
(on (plist-get rest :on))
(type (plist-get rest :type))
(result))
(ignore type) ;; Only (ts) uses it.
(pcase rest
(`(,(and num (pred numberp)) . ,rest*)