diff options
author | Ludovic Courtès <ludo@gnu.org> | 2021-09-20 16:58:04 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2021-09-20 17:00:19 +0200 |
commit | e304773416f36c31b0fafdc9418357b7057a0b14 (patch) | |
tree | c666171dde2f01d498005ceb4b2e4f2abaf7d998 | |
parent | 5a389ca7282c6f6b944a4c6abc47cd8b02e2e092 (diff) | |
download | guile-e304773416f36c31b0fafdc9418357b7057a0b14.tar.gz |
srfi-1: 'find-tail' passes 'check-arg' the right procedure name.
* module/srfi/srfi-1.scm (find-tail): Pass 'find-tail' as the 3rd
argument to 'check-arg'.
-rw-r--r-- | module/srfi/srfi-1.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/srfi/srfi-1.scm b/module/srfi/srfi-1.scm index 680ee94b5..57f9058b6 100644 --- a/module/srfi/srfi-1.scm +++ b/module/srfi/srfi-1.scm @@ -1,6 +1,6 @@ ;;; srfi-1.scm --- List Library -;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2009, 2010, 2011, 2014, 2020 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2009, 2010, 2011, 2014, 2020, 2021 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 @@ -734,7 +734,7 @@ the list returned." (define (find-tail pred lst) "Return the first pair of @var{lst} whose @sc{car} satisfies the predicate @var{pred}, or return @code{#f} if no such element is found." - (check-arg procedure? pred find) + (check-arg procedure? pred find-tail) (let loop ((lst lst)) (and (not (null? lst)) (let ((head (car lst))) |