在 f
中我們寫下
(define (f params ...) (call/cc (λ (k) (abort/cc tag k ...))))
在 call/prompt
的 handler 中新增一個 resume
參數,這樣就完成了。讀者可以填補下面的程式中的空白來檢驗結果,也充當練習
(define (f params ...) (call/cc (λ (k) (abort/cc tag k ...))) ...) (call/prompt f tag (λ (resume ...) ... ; 跳回 f 繼續 (resume)) args ...)