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/modules.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/modules.c')
-rw-r--r-- | libguile/modules.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index dd912cf2d..55d63d75f 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -170,7 +170,7 @@ scm_c_define_module (const char *name, void (*init)(void *), void *data) { SCM module = scm_call_1 (SCM_VARIABLE_REF (process_define_module_var), - SCM_LIST1 (convert_module_name (name))); + scm_list_1 (convert_module_name (name))); if (init) scm_c_call_with_current_module (module, (SCM (*)(void*))init, data); return module; @@ -180,7 +180,7 @@ void scm_c_use_module (const char *name) { scm_call_1 (SCM_VARIABLE_REF (process_use_modules_var), - SCM_LIST1 (convert_module_name (name))); + scm_list_1 (convert_module_name (name))); } static SCM module_export_x_var; @@ -440,7 +440,7 @@ scm_sym2var (SCM sym, SCM proc, SCM definep) } if (var != SCM_BOOL_F && !SCM_VARIABLEP (var)) - SCM_MISC_ERROR ("~S is not bound to a variable", SCM_LIST1 (sym)); + SCM_MISC_ERROR ("~S is not bound to a variable", scm_list_1 (sym)); return var; } @@ -461,7 +461,7 @@ scm_module_lookup (SCM module, SCM sym) var = scm_sym2var (sym, scm_module_lookup_closure (module), SCM_BOOL_F); if (SCM_FALSEP (var)) - SCM_MISC_ERROR ("unbound variable: ~S", SCM_LIST1 (sym)); + SCM_MISC_ERROR ("unbound variable: ~S", scm_list_1 (sym)); return var; } #undef FUNC_NAME @@ -478,7 +478,7 @@ scm_lookup (SCM sym) SCM var = scm_sym2var (sym, scm_current_module_lookup_closure (), SCM_BOOL_F); if (SCM_FALSEP (var)) - scm_misc_error ("scm_lookup", "unbound variable: ~S", SCM_LIST1 (sym)); + scm_misc_error ("scm_lookup", "unbound variable: ~S", scm_list_1 (sym)); return var; } @@ -639,7 +639,7 @@ scm_post_boot_init_modules () #if SCM_DEBUG_DEPRECATED == 0 - module_prefix = PERM (SCM_LIST2 (scm_sym_app, scm_sym_modules)); + module_prefix = PERM (scm_list_2 (scm_sym_app, scm_sym_modules)); make_modules_in_var = PERM (scm_c_lookup ("make-modules-in")); root_module_lookup_closure = PERM (scm_module_lookup_closure (SCM_VARIABLE_REF (the_root_module_var))); @@ -669,7 +669,7 @@ scm_module_full_name (SCM name) if (SCM_EQ_P (SCM_CAR (name), scm_sym_app)) return name; else - return scm_append (SCM_LIST2 (module_prefix, name)); + return scm_append (scm_list_2 (module_prefix, name)); } SCM |