mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +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

7
libguile/eval.c
View file

@ -547,7 +547,7 @@ scm_m_set_x (SCM xorig, SCM env)
{
SCM x = SCM_CDR (xorig);
SCM_ASSYNT (2 == scm_ilength (x), xorig, scm_s_expression, scm_s_set_x);
SCM_ASSYNT (SCM_NIMP (SCM_CAR (x)) && SCM_SYMBOLP (SCM_CAR (x)),
SCM_ASSYNT (SCM_SYMBOLP (SCM_CAR (x)),
xorig, scm_s_variable, scm_s_set_x);
return scm_cons (SCM_IM_SET_X, x);
}
@ -3407,8 +3407,7 @@ tail:
else
{
SCM tl = args = scm_cons (SCM_CAR (arg1), SCM_UNSPECIFIED);
while (SCM_NIMP (arg1 = SCM_CDR (arg1))
&& SCM_CONSP (arg1))
while (arg1 = SCM_CDR (arg1), SCM_CONSP (arg1))
{
SCM_SETCDR (tl, scm_cons (SCM_CAR (arg1),
SCM_UNSPECIFIED));
@ -3773,7 +3772,7 @@ any other object.")
ans = tl = scm_cons_source (obj,
scm_copy_tree (SCM_CAR (obj)),
SCM_UNSPECIFIED);
while (SCM_NIMP (obj = SCM_CDR (obj)) && SCM_CONSP (obj))
while (obj = SCM_CDR (obj), SCM_CONSP (obj))
{
SCM_SETCDR (tl, scm_cons (scm_copy_tree (SCM_CAR (obj)),
SCM_UNSPECIFIED));