wingo pushed a commit to branch master
in repository guile.
commit 91ff8e9251a7fb602518dca7eb1284256f55bec3
Author: Andy Wingo <[email protected]>
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)
