mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

(SCM_WTA_DISPATCH_0): Removed ARG and POS parameters,

Browse source 
they are not used.  Changed `wrong type' error into `wrong num
args' error.  Changed all callers.
This commit is contained in:
Marius Vollmer 2001-05-06 01:25:15 +00:00
parent 3a6379f7f7
commit e68fc82964
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/__scm.h
View file

@ -514,12 +514,12 @@ do { \
extern SCM scm_call_generic_0 (SCM gf);
#define SCM_WTA_DISPATCH_0(gf, arg, pos, subr) \
#define SCM_WTA_DISPATCH_0(gf, subr) \
return (SCM_UNPACK (gf) \
? scm_call_generic_0 ((gf)) \
: (scm_wrong_type_arg ((subr), (pos), (arg)), SCM_UNSPECIFIED))
#define SCM_GASSERT0(cond, gf, arg, pos, subr) \
if (!(cond)) SCM_WTA_DISPATCH_0((gf), (arg), (pos), (subr))
: (scm_error_num_args_subr ((subr)), SCM_UNSPECIFIED))
#define SCM_GASSERT0(cond, gf, subr) \
if (!(cond)) SCM_WTA_DISPATCH_0((gf), (subr))
extern SCM scm_call_generic_1 (SCM gf, SCM a1);