mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

simplify `mark-global!'

Browse source 
* module/language/elisp/bindings.scm (mark-global!): Use `lset-adjoin'.
This commit is contained in:
BT Templeton 2011-07-10 17:33:44 -04:00
parent 0a32abc462
commit 0c5fe7d804
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/elisp/bindings.scm
View file

@ -67,9 +67,7 @@
(define (mark-global! bindings sym module)
(let* ((old-globals (globals bindings))
(old-in-module (or (assoc-ref old-globals module) '()))
(new-in-module (if (memq sym old-in-module)
old-in-module
(cons sym old-in-module)))
(new-in-module (lset-adjoin eq? old-in-module sym))
(new-globals (assoc-set! old-globals module new-in-module)))
(set-globals! bindings new-globals)))