, , . PLT , set-car! set-cdr! ( "" set-mcar! set-mcdr!). append! SRFI-1. append! . SRFI , cons .
append!, , , , , , . :
(define (my-append! a b)
(if (null? (cdr a))
(set-cdr! a b)
(my-append! (cdr a) b)))
, , , 1 a () ( ), b. a 1, set-cdr! .
, , , . , a, cons, (<last element> . null). , , a , null cdr. , set-cdr!, , , . , my-append! cdr of a. , , a. , , , .