diff options
author | Andy Wingo <wingo@pobox.com> | 2011-03-05 21:48:47 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-03-05 21:48:47 +0100 |
commit | b6b84131cd2cf36b49e65f30a67dbc114b78c610 (patch) | |
tree | 140c2de0221fa543cf0ae33fa61215d57602b568 /libguile/eval.c | |
parent | 900a6f87bad5c5a34f017cc6c851483758433f38 (diff) | |
download | guile-b6b84131cd2cf36b49e65f30a67dbc114b78c610.tar.gz |
remove obsolete comments
* libguile/eval.c (scm_nconc2last):
* libguile/strports.c (scm_c_read_string): Remove some obsolete
comments.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 6f2020ebc..b52cc2788 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -543,11 +543,7 @@ SCM_DEFINE (scm_nconc2last, "apply:nconc2last", 1, 0, 0, SCM *lloc; SCM_VALIDATE_NONEMPTYLIST (1, lst); lloc = &lst; - while (!scm_is_null (SCM_CDR (*lloc))) /* Perhaps should be - SCM_NULL_OR_NIL_P, but not - needed in 99.99% of cases, - and it could seriously hurt - performance. - Neil */ + while (!scm_is_null (SCM_CDR (*lloc))) lloc = SCM_CDRLOC (*lloc); SCM_ASSERT (scm_ilength (SCM_CAR (*lloc)) >= 0, lst, SCM_ARG1, FUNC_NAME); *lloc = SCM_CAR (*lloc); |