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
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users
