我想在Scheme48中定义一个记录

Question

我在scheme48中尝试了一个定义记录类型的例子，它似乎不起作用。怎么了？

(define-record-type circle
 (make-circle r)
 circle?
 (r get-radius))

给出

Error: undefined variable
   circle
   (package user)

我试过其他例子，也得到了类似的结果。我甚至直接从scheme48用户手册中尝试了一个示例。

提前谢谢。

Answer 1

在manual中声明record是这样定义的：

(define-record-type tag type-name
  (constructor-name field-tag ...)
  predicate-name
  (field-tag accessor-name [modifier-name])
  ...)

因此，在您的示例中，似乎缺少type-name。试试这个：

(define-record-type circle :circle
  (make-circle r)
  circle?
  (r get-radius))

别忘了先导入库：

,open define-record-types