October 5, 2022 11:06 PM, "jgart" <jg...@dismail.de> wrote:
> Hi > > How can I step through this code? > If you ever find out, then let me know! I wish guile had a nice debugger like elisp. :) > (define-syntax do > (syntax-rules () > ((do ((var init step ...) ...) > (test expr ...) > command ...) > (letrec > ((loop > (lambda (var ...) > (if test > (begin > (if #f #f) > expr ...) > (begin > command > ... > (loop (do "step" var step ...) > ...)))))) > (loop init ...))) > ((do "step" x) > x) > ((do "step" x y) > y)))