/* Representation of stack frame debug information
- * Copyright (C) 1996,1997,2000,2001, 2006, 2007, 2008 Free Software Foundation
+ * Copyright (C) 1996,1997,2000,2001, 2006, 2007, 2008, 2009 Free Software Foundation
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
}
}
}
- else if (scm_is_eq (vect[0].a.proc, scm_f_gsubr_apply))
- /* Skip gsubr apply frames. */
- continue;
else
++n; /* increment for non-program apply frame */
}
NEXT_FRAME (iframe, n, quit);
}
}
- else if (scm_is_eq (iframe->proc, scm_f_gsubr_apply))
- /* Skip gsubr apply frames. */
- continue;
else if (SCM_PROGRAM_P (iframe->proc))
{
if (!SCM_PROGRAM_IS_BOOT (iframe->proc))