original commit: d44ad9eaa256c21f280337da78c13be6707d5ff8
This commit is contained in:
Matthew Flatt 1999-02-08 01:49:23 +00:00
parent 3017661e59
commit e8856bc74c

View File

@ -89,7 +89,7 @@
[(l r equal?)
(if (null? l)
r
(remove* (cdr l) (remove (car l) r equal?)))]
(remove* (cdr l) (remove (car l) r equal?) equal?))]
[(l r) (remove* l r equal?)])))
(define remq*