|
From: | jgart |
Subject: | How can I step through this code? |
Date: | Wed, 5 Oct 2022 22:05:27 -0500 |
Hi How can I step through this code? (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)))
[Prev in Thread] | Current Thread | [Next in Thread] |