call/cc vs. delim control speed

gistfile1.rkt

#lang racket

(define pt (make-continuation-prompt-tag))

(define (fact n)
  (if (zero? n)
      1
      (* n (fact (sub1 n)))))

(time
 (for ([i 10000])
   (call-with-continuation-prompt
    (lambda ()
      (call/cc
       (lambda (k)
         (k (fact 5)))
       pt))
    pt)))

(time
 (for ([i 10000])
   (call-with-continuation-prompt
    (lambda ()
      (call-with-composable-continuation
       (lambda (k)
         (abort-current-continuation
          pt
          (lambda () (k (fact 5)))))
       pt))
    pt)))