各位同学，刚搞懂这个。

(define call/cc call-with-current-continuation)
;Value: call/cc

(let ((x (call/cc (lambda (k) k))))
  (display '--)
  (display x)
  (x (lambda (ignore) "hi"))
  (display '>>)
  (display x))
--#[continuation 11]--#[compound-procedure 12]>>#[compound-procedure 12]
;Unspecified return value