Parent Directory | Revision Log | Patch
revision 1.45 by ttn, Thu Mar 14 03:47:42 2002 UTC | revision 1.46 by dirk, Sun Jun 30 22:03:43 2002 UTC | |
---|---|---|
# | Line 223 scm_gsubr_apply (SCM args) | Line 223 scm_gsubr_apply (SCM args) |
223 | #endif | #endif |
224 | args = SCM_CDR (args); | args = SCM_CDR (args); |
225 | for (i = 0; i < SCM_GSUBR_REQ (typ); i++) { | for (i = 0; i < SCM_GSUBR_REQ (typ); i++) { |
#ifndef SCM_RECKLESS | ||
226 | if (SCM_NULLP (args)) | if (SCM_NULLP (args)) |
227 | scm_wrong_num_args (SCM_SNAME (SCM_GSUBR_PROC (self))); | scm_wrong_num_args (SCM_SNAME (SCM_GSUBR_PROC (self))); |
#endif | ||
228 | v[i] = SCM_CAR(args); | v[i] = SCM_CAR(args); |
229 | args = SCM_CDR(args); | args = SCM_CDR(args); |
230 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |