diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 86a3dfc60..4516a68dc 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -462,8 +462,8 @@ vm_reinstate_partial_continuation (struct scm_vm *vp, SCM cont, static void vm_error (const char *msg, SCM arg) SCM_NORETURN; static void vm_error_bad_instruction (scm_t_uint32 inst) SCM_NORETURN SCM_NOINLINE; -static void vm_error_unbound (SCM proc, SCM sym) SCM_NORETURN SCM_NOINLINE; -static void vm_error_unbound_fluid (SCM proc, SCM fluid) SCM_NORETURN SCM_NOINLINE; +static void vm_error_unbound (SCM sym) SCM_NORETURN SCM_NOINLINE; +static void vm_error_unbound_fluid (SCM fluid) SCM_NORETURN SCM_NOINLINE; static void vm_error_not_a_variable (const char *func_name, SCM x) SCM_NORETURN SCM_NOINLINE; static void vm_error_apply_to_non_list (SCM x) SCM_NORETURN SCM_NOINLINE; static void vm_error_kwargs_length_not_even (SCM proc) SCM_NORETURN SCM_NOINLINE; @@ -501,17 +501,17 @@ vm_error_bad_instruction (scm_t_uint32 inst) } static void -vm_error_unbound (SCM proc, SCM sym) +vm_error_unbound (SCM sym) { - scm_error_scm (scm_misc_error_key, proc, + scm_error_scm (scm_misc_error_key, SCM_BOOL_F, scm_from_latin1_string ("Unbound variable: ~s"), scm_list_1 (sym), SCM_BOOL_F); } static void -vm_error_unbound_fluid (SCM proc, SCM fluid) +vm_error_unbound_fluid (SCM fluid) { - scm_error_scm (scm_misc_error_key, proc, + scm_error_scm (scm_misc_error_key, SCM_BOOL_F, scm_from_latin1_string ("Unbound fluid: ~s"), scm_list_1 (fluid), SCM_BOOL_F); } |