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