mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* boot-9.scm (make-record-type): Use `set-struct-vtable-name!' to

Browse source 
associate a name to the record type descriptor so that the object
system can create a wrapper class for it.
This commit is contained in:
Mikael Djurfeldt 1999-03-14 16:46:04 +00:00
parent efdfceeabe
commit c8eed87557
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/boot-9.scm
View file

@ -394,6 +394,11 @@
(display ">" p))) (display ">" p)))
type-name type-name
(copy-tree fields)))) (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))) struct)))
(define (record-type-name obj) (define (record-type-name obj)