mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

`%plist-member' fix

Browse source 
* module/language/elisp/boot.el (%plist-member): Use recursion to avoid
  using `catch' and `throw'.
This commit is contained in:
BT Templeton 2011-08-11 23:47:36 -04:00
parent 5950f674bf
commit 76c50ec52e
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/language/elisp/boot.el
View file

@ -400,11 +400,13 @@
;;; Property lists
(defun %plist-member (plist property test)
(catch 'loop
(while plist
(if (funcall test (car plist) property)
(throw 'loop (cdr plist))
(setq plist (cddr plist))))))
(cond
((null plist) nil)
((consp plist)
(if (funcall test (car plist) property)
(cdr plist)
(%plist-member (cdr (cdr plist)) property test)))
(t (signal 'wrong-type-argument `(listp ,plist)))))
(defun %plist-get (plist property test)
(car (%plist-member plist property test)))