/[guile]/guile/guile-core/libguile/gsubr.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gsubr.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    }    }

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26