mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-08-02 06:48:28 +00:00
parent 89e941f154
commit 29b4f9fb2c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -437,13 +437,13 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1,
"The structure of a struct is described by a vtable, so the vtable is\n" "The structure of a struct is described by a vtable, so the vtable is\n"
"in essence the type of the struct. The vtable is itself a struct with\n" "in essence the type of the struct. The vtable is itself a struct with\n"
"a vtable. This could go on forever if it weren't for the\n" "a vtable. This could go on forever if it weren't for the\n"
"vtable-vtables which are self-describing vtables, and thus terminates\n" "vtable-vtables which are self-describing vtables, and thus terminate\n"
"the chain.\n\n" "the chain.\n\n"
"There are several potential ways of using structs, but the standard\n" "There are several potential ways of using structs, but the standard\n"
"one is to use three kinds of structs, together building up a type\n" "one is to use three kinds of structs, together building up a type\n"
"sub-system: one vtable-vtable working as the root and one or several\n" "sub-system: one vtable-vtable working as the root and one or several\n"
"\"types\", each with a set of \"instances\". (The vtable-vtable should be\n" "\"types\", each with a set of \"instances\". (The vtable-vtable should be\n"
"compared to the class <class> which is a class of itself.)\n\n" "compared to the class <class> which is the class of itself.)\n\n"
"@example\n" "@example\n"
"(define ball-root (make-vtable-vtable \"pr\" 0))\n\n" "(define ball-root (make-vtable-vtable \"pr\" 0))\n\n"
"(define (make-ball-type ball-color)\n" "(define (make-ball-type ball-color)\n"