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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.73 by mvo, Sat Oct 13 15:41:40 2001 UTC revision 1.74 by ossau, Tue Jan 22 23:31:38 2002 UTC
# Line 302  SCM_DEFINE (scm_set_print_params_x, "set Line 302  SCM_DEFINE (scm_set_print_params_x, "set
302    print_params_t *new_params;    print_params_t *new_params;
303    
304    SCM_VALIDATE_NONEMPTYLIST_COPYLEN (2, params, n);    SCM_VALIDATE_NONEMPTYLIST_COPYLEN (2, params, n);
305    for (ls = params; !SCM_NULLP (ls); ls = SCM_CDR (ls))    for (ls = params; !SCM_NULL_OR_NIL_P (ls); ls = SCM_CDR (ls))
306      SCM_ASSERT (scm_ilength (SCM_CAR (params)) == 2      SCM_ASSERT (scm_ilength (SCM_CAR (params)) == 2
307                  && SCM_INUMP (SCM_CAAR (ls))                  && SCM_INUMP (SCM_CAAR (ls))
308                  && SCM_INUM (SCM_CAAR (ls)) >= 0                  && SCM_INUM (SCM_CAAR (ls)) >= 0

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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