diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/gsubr.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 4f8faefa0..e93b4402d 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -197,7 +197,7 @@ scm_gsubr_apply (SCM args) #endif args = SCM_CDR (args); for (i = 0; i < SCM_GSUBR_REQ (typ); i++) { - if (SCM_NULLP (args)) + if (scm_is_null (args)) scm_wrong_num_args (SCM_SNAME (SCM_GSUBR_PROC (self))); v[i] = SCM_CAR(args); args = SCM_CDR(args); @@ -212,7 +212,7 @@ scm_gsubr_apply (SCM args) } if (SCM_GSUBR_REST(typ)) v[i] = args; - else if (!SCM_NULLP (args)) + else if (!scm_is_null (args)) scm_wrong_num_args (SCM_SNAME (SCM_GSUBR_PROC (self))); switch (n) { case 2: return (*fcn)(v[0], v[1]); |