From c8eed87557575d1c7ab73881e77ef27f33202c19 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 14 Mar 1999 16:46:04 +0000 Subject: [PATCH] * boot-9.scm (make-record-type): Use `set-struct-vtable-name!' to associate a name to the record type descriptor so that the object system can create a wrapper class for it. --- ice-9/boot-9.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index b6ea36ae3..6de5a9c54 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -394,6 +394,11 @@ (display ">" p))) type-name (copy-tree fields)))) + ;; Temporary solution: Associate a name to the record type descriptor + ;; so that the object system can create a wrapper class for it. + (set-struct-vtable-name! struct (if (symbol? type-name) + type-name + (string->symbol type-name))) struct))) (define (record-type-name obj)