エラーを上げるインストラクション

letrec のエラー検出を Scheme 側の current-exception-handler で catch したいという要求からエラーを上げるインストラクションを追加した。
この方法が定石かどうかは分からないがこれしか思いつかなかった。

(guard
 (c [#t #f])
 (letrec ([a 3]
          [b a])
   (display b)
   (newline))
 )