diff options
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 3789c7280..85325d408 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1487,7 +1487,7 @@ loop: switch SCM_TYP7 (v) { default: - badarg1:scm_wta (v, (char *) SCM_ARG1, FUNC_NAME); + badarg1:SCM_WTA (SCM_ARG1,v); case scm_tc7_smob: SCM_ASRTGO (SCM_ARRAYP (v), badarg1); cra = scm_ra2contig (ra, 0); @@ -1578,9 +1578,7 @@ loop: { if (remaining % sz != 0) { - scm_misc_error (FUNC_NAME, - "unexpected EOF", - SCM_EOL); + SCM_MISC_ERROR ("unexpected EOF", SCM_EOL); } ans -= remaining / sz; break; |