diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-15 09:50:20 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-15 09:50:20 +0000 |
commit | 160bb34a53c1d775bc0cb71b45c9a2eb289749cf (patch) | |
tree | c3399958fb21eaab41ecebf1f4b1e143d67d8a37 /libguile/goops.c | |
parent | 80dee77b864c3b98bc17f4c130445a47c3e65e54 (diff) | |
download | guile-160bb34a53c1d775bc0cb71b45c9a2eb289749cf.tar.gz |
* Removed unused object parameter from SCM_ASSYNT.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index a79c13fb6..ff75a6395 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -1869,7 +1869,7 @@ scm_m_atslot_ref (SCM xorig, SCM env) #define FUNC_NAME s_atslot_ref { SCM x = SCM_CDR (xorig); - SCM_ASSYNT (scm_ilength (x) == 2, xorig, scm_s_expression, FUNC_NAME); + SCM_ASSYNT (scm_ilength (x) == 2, scm_s_expression, FUNC_NAME); SCM_VALIDATE_INUM (SCM_ARG2, SCM_CADR (x)); return scm_cons (SCM_IM_SLOT_REF, x); } @@ -1883,7 +1883,7 @@ scm_m_atslot_set_x (SCM xorig, SCM env) #define FUNC_NAME s_atslot_set_x { SCM x = SCM_CDR (xorig); - SCM_ASSYNT (scm_ilength (x) == 3, xorig, scm_s_expression, FUNC_NAME); + SCM_ASSYNT (scm_ilength (x) == 3, scm_s_expression, FUNC_NAME); SCM_VALIDATE_INUM (SCM_ARG2, SCM_CADR (x)); return scm_cons (SCM_IM_SLOT_SET_X, x); } @@ -1899,7 +1899,7 @@ scm_m_atdispatch (SCM xorig, SCM env) #define FUNC_NAME s_atdispatch { SCM args, n, v, gf, x = SCM_CDR (xorig); - SCM_ASSYNT (scm_ilength (x) == 4, xorig, scm_s_expression, FUNC_NAME); + SCM_ASSYNT (scm_ilength (x) == 4, scm_s_expression, FUNC_NAME); args = SCM_CAR (x); if (!SCM_CONSP (args) && !SCM_SYMBOLP (args)) SCM_WRONG_TYPE_ARG (SCM_ARG1, args); |