2001-09-12 Gary Houston <ghouston@arglist.com>
* srfi-1.scm (filter): change "caller" to "filter" in check-arg-type.
This commit is contained in:
parent
998bfc70f0
commit
6ddd941279
2 changed files with 5 additions and 1 deletions
|
|
@ -1,3 +1,7 @@
|
|||
2001-09-12 Gary Houston <ghouston@arglist.com>
|
||||
|
||||
* srfi-1.scm (filter): change "caller" to "filter" in check-arg-type.
|
||||
|
||||
2001-08-31 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* srfi-1.scm, srfi-13.scm: Remove the defines that were needed to
|
||||
|
|
|
|||
|
|
@ -718,7 +718,7 @@
|
|||
;;; Filtering & partitioning
|
||||
|
||||
(define (filter pred list)
|
||||
(check-arg-type list? list "caller") ; reject circular lists.
|
||||
(check-arg-type list? list "filter") ; reject circular lists.
|
||||
(letrec ((filiter (lambda (pred rest result)
|
||||
(if (null? rest)
|
||||
(reverse! result)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue