for ... next BASIC type loop in scheme

for-next.scm

#lang racket
(define-syntax for-next
  (syntax-rules ()
    ((_ var lo hi body ...)
     (let loop ((var lo))
       body ...
       (when (< var hi)
         (loop (+ 1 var)))))))

;; Example
(for-next i 2 5
          (displayln i))
;; outputs 2 3 4 5