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

(lset-adjoin): Actually use the given `=' procedure.

Browse source 
Test membership only on the given `list', not `acc', as per the spec.
This commit is contained in:
Kevin Ryde 2005-01-28 21:30:47 +00:00
parent b66ccb2693
commit a33931ae8d
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

@ -737,7 +737,7 @@
(let lp ((l rest) (acc list)) (let lp ((l rest) (acc list))
(if (null? l) (if (null? l)
acc acc
(if (member (car l) acc) (if (member (car l) list (lambda (x y) (= y x)))
(lp (cdr l) acc) (lp (cdr l) acc)
(lp (cdr l) (cons (car l) acc)))))) (lp (cdr l) (cons (car l) acc))))))