palindrome.scm

(define (make-palindrome l)
  (define (loop l suffix)
    (if (null? (cdr l))
        (cons (car l) suffix)
        (cons (car l)
              (loop (cdr l) (cons (car l) suffix)))))
  (if (null? l)
      #f ; arbitrary choice
      (loop l '())))