[Guile-commits] 32/61: append-map rather than mapappend

[Andy Wingo]

wingo pushed a commit to branch wip-goops-refactor
in repository guile.

commit e78d7a8d774cd8189127460691b60be5bfb43401
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 12 21:18:57 2015 +0100

    append-map rather than mapappend
    
    * module/oop/goops/util.scm: Remove mapappend alias; SRFI-1 append-map
      should be used instead.
---
 module/oop/goops/util.scm |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/module/oop/goops/util.scm b/module/oop/goops/util.scm
index 3c86f15..fa48645 100644
--- a/module/oop/goops/util.scm
+++ b/module/oop/goops/util.scm
@@ -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
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -17,7 +17,7 @@
 
 
 (define-module (oop goops util)
-  :export (mapappend find-duplicate
+  :export (find-duplicate
           map* for-each* length* improper->proper)
   :use-module (srfi srfi-1)
   :re-export  (any every)
@@ -29,8 +29,6 @@
 ;;; {Utilities}
 ;;;
 
-(define mapappend append-map)
-
 (define (find-duplicate l)     ; find a duplicate in a list; #f otherwise
   (cond 
     ((null? l)                 #f)