如何忽略使用` `set!`在球拍中产生的副作用？

Question

在Exercise 35.4.2 from HtDP中，我实现了图形用户界面，并有一个调用回调函数的名为"Remove“的按钮。这就是它：

(define (cb-remove x)
  ((lambda (name result)
     (cond
       [(number? result) (remove-name name address-book)]
       [else (draw-message msg "Not found")]))
   (string->symbol (text-contents label-name))
   (lookup (string->symbol (text-contents label-name)) address-book)))

当我运行此命令时，我得到以下消息：button-callback: result of type <Boolean> expected, your function produced #<set!-result>。问题是我必须调用set!才能更改地址簿。但是，set!的结果是(void)，它不能与Boolean类型组合。我怎样才能避免这个问题？谢谢你的见解。

Answer 1

简单：

(begin (set! foo bar) #t)