[Chicken-users] do* code-review

[Alexej Magura]

Could I please get a code review on this function: I didn't write it, but even if I had, I'd still want some of yall to look over it just to make sure that it's as efficient and performant as far as getting as much work done as possible with as little effort as possible: efficient, essentially, lulz. 



(define-syntax do*
  (syntax-rules ()
    ((_ ((?var0 ?init0 ?inc0) ...)
         (?test ?result)
         ?body ...)
     (let* ((?var0 ?init0) ...)
       (let lp ()
         (cond (?test ?result)
               (else ?body ...
                     (set! ?var0 ?inc0) ...
                     (lp))))))))


Thanks