实现返回函数

Question

我正在尝试在 Scheme R6RS 中实现 return 函数。我想要这样的东西：

(lambda ()
  (do-some-job-before)
  (return some-value)
  (do-some-job-after))

执行(do-some-job-before)，不执行(do-some-job-after)和some-value中的lambda函数的最终值。

我想我必须使用延续。我试过了：

(define return #f)
(call/cc (lambda (k)
           (set! return k)))

但它不起作用；例如

(+ 2 (return 3)) ; -> 3 (and not 5 as I expected)

我该怎么做？

Answer 1

已编辑：误读问题。

其实很简单:)

(call/cc 
  (lambda (return)
    (printf "before\n")
    (return 3)
    (printf "after\n")))

例如here。

注意：你不能一概而论，除非你把它包装在一个不卫生的宏的语法中。