r6rs и определить тип записи

Привет всем,

для класса мне пришлось импортировать некоторые библиотеки.

у меня ошибка, после проверки библиотек проблема в основном сводится к

r6rs, который выдает эту ошибку: define-record-type: unbound identifier in module in: define-record-type

в этой библиотеке:

#lang r6rs

(library
 (scenario-line)
 (export new say-what says-who say-it)
 (import ;...
  )

 (define-record-type scenario-line
   (new figure text)
   scenario-line?
   (figure says-who)
   (text say-what))

 (define (say-it scenario-line)
   (diagonal-paste (diagonal-paste (says-who scenario-line) 
                                   (new-cloud 15 15)) 
                   (new-text-cloud (say-what scenario-line)))))