168 |
"must be an integer value.") |
"must be an integer value.") |
169 |
#define FUNC_NAME s_scm_strerror |
#define FUNC_NAME s_scm_strerror |
170 |
{ |
{ |
171 |
SCM_VALIDATE_INUM (1,err); |
SCM_VALIDATE_INUM (1, err); |
172 |
return scm_makfrom0str (SCM_I_STRERROR (SCM_INUM (err))); |
return scm_makfrom0str (SCM_I_STRERROR (SCM_INUM (err))); |
173 |
} |
} |
174 |
#undef FUNC_NAME |
#undef FUNC_NAME |
224 |
scm_error (scm_out_of_range_key, |
scm_error (scm_out_of_range_key, |
225 |
subr, |
subr, |
226 |
"Argument ~S out of range: ~S", |
"Argument ~S out of range: ~S", |
227 |
scm_list_2 (pos,bad_value), |
scm_list_2 (pos, bad_value), |
228 |
SCM_BOOL_F); |
SCM_BOOL_F); |
229 |
} |
} |
230 |
|
|