(check (eq (call-cc (lambda (k) (k))) 'nil))