Question

我们可以用宏在 Scheme 中嵌入一个遵循上面确定的模式的简单对象系统。

请注意，在本书中我们使用 defmac 来定义宏。defmac 类似于 define-syntax-rule ，但是它还支持关键字参数，外加标识符捕获（通过 #:keywords 和 #:captures 可选参数）。

(defmac (OBJECT ([field fname init] ...)
                ([method mname args body] ...))
  #:keywords field method
  (let ([fname init] ...)
    (let ([methods (list (cons 'mname (λ args body)) ...)])
      (λ (msg . vals)
        (apply (cdr (assoc msg methods)) vals)))))

我们还可以定义箭头 -> 符号表示发送消息给对象，例如 (-> st push 3) ：

(defmac (-> o m arg ...)
  (o 'm arg ...))

现在就可以使用这个对象系统来定义二维点对象了：

(define p2D
  (OBJECT
   ([field x 0]
    [field y 0])
   ([method x? () x]
    [method y? () y]
    [method x! (nx) (set! x nx)]
    [method y! (ny) (set! y ny)])))

这么使用：

> (-> p2D x! 15)
> (-> p2D y! 20)
> (-> p2D x?)
15
> (-> p2D y?)
20