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

append-map rather than mapappend

Browse source 
* module/oop/goops/util.scm: Remove mapappend alias; SRFI-1 append-map
  should be used instead.
This commit is contained in:
Andy Wingo 2015-01-12 21:18:57 +01:00
parent 0ca4929027
commit 91ff8e9251
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/oop/goops/util.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2008, 2012 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2008, 2012, 2015 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -17,7 +17,7 @@
(define-module (oop goops util) (define-module (oop goops util)
:export (mapappend find-duplicate :export (find-duplicate
map* for-each* length* improper->proper) map* for-each* length* improper->proper)
:use-module (srfi srfi-1) :use-module (srfi srfi-1)
:re-export (any every) :re-export (any every)
@ -29,8 +29,6 @@
;;; {Utilities} ;;; {Utilities}
;;; ;;;
(define mapappend append-map)
(define (find-duplicate l) ; find a duplicate in a list; #f otherwise (define (find-duplicate l) ; find a duplicate in a list; #f otherwise
(cond (cond
((null? l) #f) ((null? l) #f)