今日の成果はこのマクロだけ

(define-macro do-inline
  (lambda body
    `(let1 env (make-hash-table)
       (let loop ([body ',body]
                  [ret '()])
         (if (null? body)
             (begin (hash-table-for-each env (lambda (key val) (print key val))) ret)
             (loop (cdr body) (inline (car body) env #f)))))))

こう使います。

(do-inline
 (define kar (lambda (x) (car x)))
 (kar a))

ちと集中できなかった。
というか3連休中2日は全然ダメだった。まだ生活のリズムに慣れていないのかもしれない。