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

use append-map in goops

Browse source 
* module/oop/goops.scm (ensure-metaclass, make-extended-generic): Some
  minor optimizations to use append-map.
This commit is contained in:
Andy Wingo 2009-02-05 00:31:38 +01:00
parent 7edf200127
commit af35fc20a6
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/oop/goops.scm
View file

@ -128,10 +128,9 @@
(if (null? supers)
<class>
(let* ((all-metas (map (lambda (x) (class-of x)) supers))
(all-cpls (apply append
(map (lambda (m)
(cdr (class-precedence-list m)))
all-metas)))
(all-cpls (append-map (lambda (m)
(cdr (class-precedence-list m)))
all-metas))
(needed-metas '()))
;; Find the most specific metaclasses. The new metaclass will be
;; a subclass of these.
@ -319,13 +318,12 @@
(let ((ans (if gws?
(let* ((sname (and name (make-setter-name name)))
(setters
(apply append
(map (lambda (gf)
(append-map (lambda (gf)
(if (is-a? gf <generic-with-setter>)
(list (ensure-generic (setter gf)
sname))
'()))
gfs)))
gfs))
(es (make <extended-generic-with-setter>
#:name name
#:extends gfs