質問なんですが、
(define (test-rec n)
　(let loop1 ((x 0))
　　(if(< x n)(begin(display x)(loop1 (+ x 1)))))
　(let loop2 ((x 0))
　　(if(< x n)(begin(display x)(loop2 (+ x 1))))))
これ、loop1,loop2両方とも末尾再帰してますか？