리턴 함수 구현

Question

스키마 R6RS에 return 함수를 구현하려고합니다. (do-some-job-after) 및 some-value의 람다 함수의 최종 값을 실행하지 않는,

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

이 (do-some-job-before)을 실행 : 내가 뭔가 있도록합니다.

계속 사용해야 할 것 같습니다. 나는 시도했다 :

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

그러나 그것은 작동하지 않는다; 예 :

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

어떻게하면됩니까?

Answer 1

편집 됨 : Misread question.

사실에 매우 편리합니다 :)

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

예 here.

참고 : 비 위생적 매크로의 구문으로 바꾸지 않는 한 이것을 일반화 할 수 없습니다.