diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-03 16:26:28 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-03 16:26:28 +0000 |
commit | cabe682ce632e7d657774859ced86d6c728fe440 (patch) | |
tree | 83b9f35e900b428b22f2259a41eb1b4e7928f9a2 /libguile/eval.c | |
parent | d00ae47e13a793e8f792df41fb4de46edc25b48f (diff) | |
download | guile-cabe682ce632e7d657774859ced86d6c728fe440.tar.gz |
* dynl-vms.c, debug.c, coop-threads.c, backtrace.c, eval.c: More
SCM_NIMP tests that were redundant are now eliminated. Patches
from Dirk Hermann applied by hand.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 7468dc3f5..27ac70b9f 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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)); |