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)))

Reply via email to