HomeAboutCodePastes
(define (replace! lst a b #!optional (= equal?))
  (set-car! (member a lst =) b))

plain