そうか、名前付きletを使えばいいのか。

(define rvs
  (lambda (ls)
    (let ((ls (cons (cons (car ls) ()) (cdr ls))))
      (let fishy-rvs ((ls ls))
        (let ((amari (cdr ls)))
          (if (null? amari)
              (car ls)
              (fishy-rvs
                (cons 
                  (cons (car amari) (car ls))
                  (cdr amari)))))))))

アルゴリズムは昨日のと同じ。しかし今度はletだらけで、やっぱりうざい。