mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +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

9
libguile/debug.c
View file

@ -274,8 +274,7 @@ GUILE_PROC (scm_gloc_p, "gloc?", 1, 0, 0,
"")
#define FUNC_NAME s_scm_gloc_p
{
return SCM_BOOL((SCM_NIMP (obj)
&& SCM_MEMOIZEDP (obj)
return SCM_BOOL((SCM_MEMOIZEDP (obj)
&& (SCM_MEMOIZED_EXP (obj) & 7) == 1));
}
#undef FUNC_NAME
@ -540,10 +539,8 @@ static SCM
scm_m_start_stack (SCM exp, SCM env)
{
exp = SCM_CDR (exp);
SCM_ASSERT (SCM_NIMP (exp)
&& SCM_ECONSP (exp)
&& SCM_NIMP (SCM_CDR (exp))
&& SCM_ECONSP (SCM_CDR (exp))
SCM_ASSERT (SCM_ECONSP (exp)
&& SCM_ECONSP (SCM_CDR (exp))
&& SCM_NULLP (SCM_CDDR (exp)),
exp,
SCM_WNA,