[Guile-commits] 02/05: srfi-1: 'find-tail' passes 'check-arg' the right procedure name.

[Ludovic Courtès]

civodul pushed a commit to branch main
in repository guile.

commit e304773416f36c31b0fafdc9418357b7057a0b14
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Sep 20 16:58:04 2021 +0200

    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'.
---
 module/srfi/srfi-1.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/srfi/srfi-1.scm b/module/srfi/srfi-1.scm
index 680ee94..57f9058 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)))