gistfile1.txt

(define a -1)
(define b 1)

;; original
(define x ((λ () 
             (let ([l '()])
               (define (loop i)
                 (if (< i b) 
                     (begin (append (loop (+ i 1/100)) (list i)))
                     (append l (list i))))
               (reverse (loop a))))))

;; tail recursive
(define x
  (let loop ([i a] [lst '()])
    (if (< i b)
        (loop (+ i 1/100) (cons i lst))
        (reverse lst))))