4 lines
119 B
Scheme
4 lines
119 B
Scheme
(define (insert-after! a b lst)
|
|
(let ((pos (member a lst)))
|
|
(if pos
|
|
(set-cdr! pos (cons b (cdr pos))))))
|