scheme - Racket 中是否有类似 'try' 的功能

Question

现在我正在通过看书经验丰富的计划者 .
我用 Racket 写了代码，但是当我使用 try ，计划者没有这个方法或宏。它报告了扩展:模块中的未绑定(bind)标识符:尝试。
代码如下:(在第89页)

(define (remove-member-first* a lat)
   (try oh (rm a lat oh) lat))

我搜索了 Racket 文件，但没有找到类似的功能。

那么谁知道是否有像“try”这样的功能呢？

Answer 1

我刚刚发现有人已经编写了本书 中的所有代码片段经验丰富的计划者 在github。

这是他的回答:(它不是不卫生的，不需要其他型号)

(define-syntax letcc
  (syntax-rules ()
    ((letcc var body ...)
     (call-with-current-continuation
       (lambda (var)  body ... )))))


(define-syntax try 
  (syntax-rules () 
    ((try var a . b) 
     (letcc success 
       (letcc var (success a)) . b))))

链接是 https://github.com/viswanathgs/The-Seasoned-Schemer