JIT が動く小さなサンプル

(define (a) 3)

(do ([i 0 (+ i 1)])
  [(= i 20)]
  (test-equal 3 (a)))

とかやると (a) の 10 回目の呼び出し時に JIT コンパイルされる。以降 JIT コンパイルされた手続きが呼ばれる。