Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in delete

Browse source
This commit is contained in:
Alex Shinn 2010-08-01 16:20:43 +09:00
parent e656c6e7e2
commit f61e3ac415
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/1/deletion.scm
View file

@ -10,7 +10,7 @@
(if tail (if tail
(lp (cdr tail) (take-up-to-reverse ls tail rev)) (lp (cdr tail) (take-up-to-reverse ls tail rev))
(if (pair? rev) (append-reverse! rev ls) ls)))) (if (pair? rev) (append-reverse! rev ls) ls))))
(filter (lambda (y) (eq x y)) ls)))) (remove (lambda (y) (eq x y)) ls))))
(define delete! delete) (define delete! delete)