实现返回功能

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 "beforen")
    (return 3)
    (printf "aftern")))

此处为示例。

注意：您不能对此进行概括，除非您使用不卫生的宏中的语法进行包装。