Woo!

Got it.

(define (whatdoicallthis lst func)
(let ((newlst (list list)))
(lfold (lambda (hd tl)
(set-cdr! hd (func tl))
(rest hd))
newlst
lst)
(rest newlst)))

(define (append hd tl)
(whatdoicallthis hd (lambda (nxt) (cons nxt tl))))

(define (map func lst)
(whatdoicallthis lst (lambda (nxt) (list (func nxt)))))

About these ads