diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-06-28 01:11:59 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-06-28 01:11:59 +0000 |
commit | 1afff620541041a7b680a85fee6d641092091b7c (patch) | |
tree | 02eb8dd8e195a47339873520221b04dfc46a13b9 /libguile/struct.c | |
parent | 02d9f388177fc440ad7648544cfd1034ca0bbd13 (diff) | |
download | guile-1afff620541041a7b680a85fee6d641092091b7c.tar.gz |
* list.h (scm_list_1, scm_list_2, scm_list_3, scm_list_4, scm_list_5,
scm_list_n): New functions.
(SCM_LIST0, SCM_LIST1, SCM_LIST2, SCM_LIST3, SCM_LIST4, SCM_LIST5,
SCM_LIST6, SCM_LIST7, SCM_LIST8, SCM_LIST9, scm_listify): Deprecated.
(lots of files): Use the new functions.
* goops.c (CALL_GF1, CALL_GF2, CALL_GF3, CALL_GF4): Use scm_call_N.
* strings.c: #include "libguile/deprecation.h".
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index 7f5227c36..e241a3f35 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -90,7 +90,7 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0, len = SCM_STRING_LENGTH (fields); if (len % 2 == 1) SCM_MISC_ERROR ("odd length field specification: ~S", - SCM_LIST1 (fields)); + scm_list_1 (fields)); field_desc = SCM_STRING_CHARS (fields); @@ -108,7 +108,7 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0, break; default: SCM_MISC_ERROR ("unrecognized field type: ~S", - SCM_LIST1 (SCM_MAKE_CHAR (field_desc[x]))); + scm_list_1 (SCM_MAKE_CHAR (field_desc[x]))); } switch (field_desc[x + 1]) @@ -131,14 +131,14 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0, break; default: SCM_MISC_ERROR ("unrecognized ref specification: ~S", - SCM_LIST1 (SCM_MAKE_CHAR (field_desc[x + 1]))); + scm_list_1 (SCM_MAKE_CHAR (field_desc[x + 1]))); } #if 0 if (field_desc[x] == 'd') { if (field_desc[x + 2] != '-') SCM_MISC_ERROR ("missing dash field at position ~A", - SCM_LIST1 (SCM_MAKINUM (x / 2))); + scm_list_1 (SCM_MAKINUM (x / 2))); x += 2; goto recheck_ref; } @@ -539,7 +539,8 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1, SCM_VALIDATE_INUM (2, tail_array_size); SCM_VALIDATE_REST_ARGUMENT (init); - fields = scm_string_append (SCM_LIST2 (required_vtable_fields, user_fields)); + fields = scm_string_append (scm_list_2 (required_vtable_fields, + user_fields)); layout = scm_make_struct_layout (fields); basic_size = SCM_SYMBOL_LENGTH (layout) / 2; tail_elts = SCM_INUM (tail_array_size); @@ -601,13 +602,13 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0, if ((ref == 'R') || (ref == 'W')) field_type = 'u'; else - SCM_MISC_ERROR ("ref denied for field ~A", SCM_LIST1 (pos)); + SCM_MISC_ERROR ("ref denied for field ~A", scm_list_1 (pos)); } } else if (fields_desc[SCM_SYMBOL_LENGTH (layout) - 1] != 'O') field_type = fields_desc[SCM_SYMBOL_LENGTH (layout) - 2]; else - SCM_MISC_ERROR ("ref denied for field ~A", SCM_LIST1 (pos)); + SCM_MISC_ERROR ("ref denied for field ~A", scm_list_1 (pos)); switch (field_type) { @@ -633,7 +634,7 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0, default: SCM_MISC_ERROR ("unrecognized field type: ~S", - SCM_LIST1 (SCM_MAKE_CHAR (field_type))); + scm_list_1 (SCM_MAKE_CHAR (field_type))); } return answer; @@ -673,12 +674,12 @@ SCM_DEFINE (scm_struct_set_x, "struct-set!", 3, 0, 0, field_type = fields_desc[p * 2]; set_x = fields_desc [p * 2 + 1]; if (set_x != 'w') - SCM_MISC_ERROR ("set! denied for field ~A", SCM_LIST1 (pos)); + SCM_MISC_ERROR ("set! denied for field ~A", scm_list_1 (pos)); } else if (fields_desc[SCM_SYMBOL_LENGTH (layout) - 1] == 'W') field_type = fields_desc[SCM_SYMBOL_LENGTH (layout) - 2]; else - SCM_MISC_ERROR ("set! denied for field ~A", SCM_LIST1 (pos)); + SCM_MISC_ERROR ("set! denied for field ~A", scm_list_1 (pos)); switch (field_type) { @@ -705,7 +706,7 @@ SCM_DEFINE (scm_struct_set_x, "struct-set!", 3, 0, 0, default: SCM_MISC_ERROR ("unrecognized field type: ~S", - SCM_LIST1 (SCM_MAKE_CHAR (field_type))); + scm_list_1 (SCM_MAKE_CHAR (field_type))); } return val; |