Scheme syntax equivalent to Javascript for()

(define-syntax for
  (syntax-rules ()
    ((for ((var init) condition step) expr ...)
     (let ((var init))
       (let loop ()
         (if condition
             (begin
               (begin expr ...)
               step
               (loop))))))))

(define (test-for)
  (let ((v (make-vector 10)))
    (for ((i 0) (< i 10) (set! i (+ 1 i)))
      (vector-set! v i (lambda () i)))
    (for ((i 0) (< i 10) (set! i (+ 1 i)))
      (display ((vector-ref v i)))
      (newline))))