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

rewrite `map-globals'

Browse source 
* module/language/elisp/bindings.scm (map-globals): Use `append-map' and
  `map' instead of explicit iteration with named `let'.
This commit is contained in:
BT Templeton 2011-07-07 23:08:22 -04:00
parent d5da7661c8
commit 221dc803b0
1 changed files with 8 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -19,7 +19,10 @@
;;; Code:
(define-module (language elisp bindings)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-8)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-26)
#:export (make-bindings
mark-global!
map-globals
@ -70,22 +73,11 @@
;;; their creation or some other analysis.
(define (map-globals bindings proc)
(let iterate-modules ((mod-tail (globals bindings))
(mod-result '()))
(if (null? mod-tail)
mod-result
(iterate-modules
(cdr mod-tail)
(let* ((aentry (car mod-tail))
(module (car aentry))
(symbols (cdr aentry)))
(let iterate-symbols ((sym-tail symbols)
(sym-result mod-result))
(if (null? sym-tail)
sym-result
(iterate-symbols (cdr sym-tail)
(cons (proc module (car sym-tail))
sym-result)))))))))
(append-map
(lambda (module+symbols)
(receive (module symbols) (car+cdr module+symbols)
(map (cut proc module <>) symbols)))
(globals bindings)))
;;; Get the current lexical binding (gensym it should refer to in the
;;; current scope) for a symbol or #f if it is dynamically bound.