mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

(delete): Fix predicate arg order to match srfi-1 spec.

Browse source
This commit is contained in:
Kevin Ryde 2003-05-12 23:02:01 +00:00
parent dfd03fb91b
commit 56adbd75d4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-1.scm
View file

@ -802,7 +802,7 @@
(let lp ((l list)) (let lp ((l list))
(if (null? l) (if (null? l)
'() '()
(if (l= (car l) x) (if (l= x (car l))
(lp (cdr l)) (lp (cdr l))
(cons (car l) (lp (cdr l)))))))) (cons (car l) (lp (cdr l))))))))