From 91ff8e9251a7fb602518dca7eb1284256f55bec3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 12 Jan 2015 21:18:57 +0100 Subject: [PATCH] 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 file changed, 2 insertions(+), 4 deletions(-) diff --git a/module/oop/goops/util.scm b/module/oop/goops/util.scm index 3c86f1525..fa486453b 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)