lulz, nevermind. xD
On 08/12/2015 04:07 PM, Alexej Magura
wrote:
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
|