(define-macro (local defs . body) (let* ((split-define (lambda (def) (let ((name (cadr def)) (body (cddr def))) (cond [(pair? name) (cons (car name) (list (cons 'lambda (cons (cdr name) body))))] [else (cons name body)])))) (def-pairs (map…

これで良いかな… (define-macro (local defs . body) (let* ((split-define (lambda (def) (let ((name (cadr def)) (body (cddr def))) (cond [(list? name) (cons (car name) (list (cons 'lambda (cons (cdr name) body))))] [(pair? name) (cons (car na…