1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 02:00:26 +02:00

* error.c (scm_wta): Added support for SCM_ARG6 and SCM_ARG7.

This commit is contained in:
Mikael Djurfeldt 1998-01-25 12:00:47 +00:00
parent a48b6916e2
commit 3d9352fb80
2 changed files with 6 additions and 0 deletions

View file

@ -273,6 +273,10 @@ scm_wta (arg, pos, s_subr)
scm_wrong_type_arg (s_subr, 4, arg);
case SCM_ARG5:
scm_wrong_type_arg (s_subr, 5, arg);
case SCM_ARG6:
scm_wrong_type_arg (s_subr, 6, arg);
case SCM_ARG7:
scm_wrong_type_arg (s_subr, 7, arg);
case SCM_WNA:
scm_wrong_num_args (arg);
case SCM_OUTOFRANGE: