mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* dynl-vms.c, debug.c, coop-threads.c, backtrace.c, eval.c: More

Browse source 
SCM_NIMP tests that were redundant are now eliminated.  Patches
from Dirk Hermann applied by hand.
This commit is contained in:
Greg J. Badros 2000-01-03 16:26:28 +00:00
parent d00ae47e13
commit cabe682ce6
5 changed files with 8 additions and 122 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/backtrace.c
View file

@ -157,8 +157,7 @@ display_expression (SCM frame,SCM pname,SCM source,SCM port)
pstate->length = 3;
if (SCM_ROSTRINGP (pname))
{
if (SCM_NIMP (frame)
&& SCM_FRAMEP (frame)
if (SCM_FRAMEP (frame)
&& SCM_FRAME_EVAL_ARGS_P (frame))
scm_puts ("While evaluating arguments to ", port);
else
@ -199,7 +198,6 @@ display_error_body (struct display_error_args *a)
SCM prev_frame = SCM_BOOL_F;
if (SCM_DEBUGGINGP
&& SCM_NIMP (a->stack)
&& SCM_STACKP (a->stack)
&& SCM_STACK_LENGTH (a->stack) > 0)
{