This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
remove! bug
- From: teong leong chuah <teongleong at gmail dot com>
- To: kawa at sourceware dot org
- Date: Fri, 28 May 2010 22:08:34 +0800
- Subject: remove! bug
I believe I have found a bug in the remove! procedure of the list-lib
implemented in kawa
consider the following:
(define list1
(list (list 'a 1) (list 'b 2) (list 'c 3)))
(define list2
(list (list 'a 1) (list 'b 2) (list 'c 3)))
(remove! (lambda (x) (equal? (car x) 'b)) list1)
(remove! (lambda (x) (equal? (car x) 'a)) list2)
(display "list 1 ")(display list1 )(newline)
(display "list 2 ")(display list2) (newline)
output:
list 1 ((a 1) (c 3))
list 2 ((a 1) (b 2) (c 3))