最速と思っていた petiteにも弱点がありました。
(define loop (lambda (n) (if (= n 0) 0 (loop (- n 1)))))
(loop 2000000)

(define loop2 (lambda (n a b c d e f g h i j k l m r o p q) (if (= n 0) 0 (loop2 (- n 1) a b c d e f g h i j k l m r o p q))))
(loop2 2000000 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)

この二つのベンチマークを比較すると、
SCM: 0.50s 2.67s
MzScheme: 0.63s 1.16s
Gauche: 0.30s 0.91s
Scheme48: 1.09s 1.66s
Guile: 2.99s 9.37s
自作: 0.70s 1.19s
Petite: 0.33s 4.64s

となります。