Хотите определить запись в Scheme48

Question

Я попробовал пример типа define-record-type в схеме48, и он, похоже, не работает. Что не так?

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

дает

Error: undefined variable 
    circle 
    (package user) 

Я пробовал другие примеры, и я получить аналогичные результаты. Я даже попробовал пример прямо из руководства по эксплуатации схемы48.

Заранее спасибо.

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