Lambda the Ultimate Actor (3)

  ;; 口座開設
  (define acct1 (make-account 10000))
  (define acct2 (make-account 25000))

  ;; 口座間の転送: depositメッセージの受け取り手を指定
  (acct2 'withdraw 5000 acct1)

  ;; 残高の問い合わせ: 残高の受け取り手を関数で与える
  (acct2 'query (lambda (total)
                  (format #t "残高は~a円です\n" total)))
     ⇒  "残高は20000円です" 、と表示