shirok

(define (copy-instance obj)
  (rlet1 new (make (class-of obj))
    (dolist [slot (class-slots (class-of obj))]
      (set! (~ new (slot-definition-name slot))
            (~ obj (slot-definition-name slot))))))

podhmo

;; CPSスタイル.これは、実は非同期処理など結果がいつ計算されるか分からない場合のモデル。
;; 通常の同期処理とは異なり、引数のcontがいつ計算されるかは分からないが、*準備*ができたときcontに渡され次の計算が行われる。

(define (add1 x cont)
  (cont (+ x 1)))

(define (mul2 x cont)
  (cont (* x 2)))

;; つなげてみる。