[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile __scm.h
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile __scm.h |
Date: |
Sat, 05 May 2001 18:25:16 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/05/05 18:25:15
Modified files:
guile-core/libguile: __scm.h
Log message:
(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.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/__scm.h.diff?cvsroot=OldCVS&tr1=1.67&tr2=1.68&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/__scm.h
diff -u guile/guile-core/libguile/__scm.h:1.67
guile/guile-core/libguile/__scm.h:1.68
--- guile/guile-core/libguile/__scm.h:1.67 Thu Apr 19 14:10:52 2001
+++ guile/guile-core/libguile/__scm.h Sat May 5 18:25:15 2001
@@ -514,12 +514,12 @@
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);
- guile/guile-core/libguile __scm.h,
Marius Vollmer <=