mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

* struct.c (scm_make_struct_layout): Removed reference to

Browse source 
"read-only string" in comment; Check that argument is a string.
(scm_make_vtable_vtable): Check that argument is a string.
This commit is contained in:
Mikael Djurfeldt 2000-08-27 03:21:16 +00:00
parent b299f5cd5b
commit 7c31152f99
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/struct.c
View file

@ -70,7 +70,7 @@ SCM scm_struct_table;
SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0, SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0,
(SCM fields), (SCM fields),
"Return a new structure layout object.\n\n" "Return a new structure layout object.\n\n"
"@var{fields} must be a read-only string made up of pairs of characters\n" "@var{fields} must be a string made up of pairs of characters\n"
"strung together. The first character of each pair describes a field\n" "strung together. The first character of each pair describes a field\n"
"type, the second a field protection. Allowed types are 'p' for\n" "type, the second a field protection. Allowed types are 'p' for\n"
"GC-protected Scheme data, 'u' for unprotected binary data, and 's' for\n" "GC-protected Scheme data, 'u' for unprotected binary data, and 's' for\n"
@ -81,7 +81,7 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0,
#define FUNC_NAME s_scm_make_struct_layout #define FUNC_NAME s_scm_make_struct_layout
{ {
SCM new_sym; SCM new_sym;
SCM_VALIDATE_ROSTRING (1,fields); SCM_VALIDATE_STRINGORSUBSTR (1, fields);
{ /* scope */ { /* scope */
char * field_desc; char * field_desc;
int len; int len;
@ -525,7 +525,7 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1,
scm_bits_t * data; scm_bits_t * data;
SCM handle; SCM handle;
SCM_VALIDATE_ROSTRING (1, user_fields); SCM_VALIDATE_STRINGORSUBSTR (1, user_fields);
SCM_VALIDATE_INUM (2, tail_array_size); SCM_VALIDATE_INUM (2, tail_array_size);
SCM_VALIDATE_REST_ARGUMENT (init); SCM_VALIDATE_REST_ARGUMENT (init);
@ -820,7 +820,7 @@ scm_init_struct ()
{ {
scm_struct_table scm_struct_table
= scm_permanent_object (scm_make_weak_key_hash_table (SCM_MAKINUM (31))); = scm_permanent_object (scm_make_weak_key_hash_table (SCM_MAKINUM (31)));
required_vtable_fields = SCM_CAR (scm_intern_obarray ("pruosrpw", sizeof ("pruosrpw") - 1, SCM_BOOL_F)); required_vtable_fields = scm_makfrom0str ("pruosrpw");
scm_permanent_object (required_vtable_fields); scm_permanent_object (required_vtable_fields);
scm_sysintern ("vtable-index-layout", SCM_MAKINUM (scm_vtable_index_layout)); scm_sysintern ("vtable-index-layout", SCM_MAKINUM (scm_vtable_index_layout));
scm_sysintern ("vtable-index-vtable", SCM_MAKINUM (scm_vtable_index_vtable)); scm_sysintern ("vtable-index-vtable", SCM_MAKINUM (scm_vtable_index_vtable));