racket - mzlib/etc 的身份是如何工作的？

Question

在一个网页程序中，有如下代码片段：

(require mzlib/etc)
(define (h-handler base args)
 (do-h identity))

(define (do-h cont)
  [begin
    (printf "~e\n" cont)
  (web-read/k "First number"
              (lambda (v1)
                (web-read/k "Second number"
                            (lambda (v2)
                              (cont (number->string (+ v1 v2)))))))])

Answer 1

identity只是接受一个参数并返回该参数的函数的名称。它是这样工作的：

> (identity 4)
4
> (identity "hello world")
"hello world"

Answer 2

即使它尚未实现，identity对代码来说也是微不足道的：

(define (identity x) x)