(SCM_WTA_DISPATCH_0): Removed ARG and POS parameters,

they are not used.  Changed `wrong type' error into `wrong num
args' error.  Changed all callers.

diff --git a/libguile/__scm.h b/libguile/__scm.h
index 928c449..8fe7c3b 100644 (file)
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -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);