mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

remove obsolete comments

Browse source 
* libguile/eval.c (scm_nconc2last):
* libguile/strports.c (scm_c_read_string): Remove some obsolete
  comments.
This commit is contained in:
Andy Wingo 2011-03-05 21:48:47 +01:00
parent 900a6f87ba
commit b6b84131cd
2 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -543,11 +543,7 @@ SCM_DEFINE (scm_nconc2last, "apply:nconc2last", 1, 0, 0,
SCM *lloc; SCM *lloc;
SCM_VALIDATE_NONEMPTYLIST (1, lst); SCM_VALIDATE_NONEMPTYLIST (1, lst);
lloc = &lst; lloc = &lst;
while (!scm_is_null (SCM_CDR (*lloc))) /* Perhaps should be while (!scm_is_null (SCM_CDR (*lloc)))
SCM_NULL_OR_NIL_P, but not
needed in 99.99% of cases,
and it could seriously hurt
performance. - Neil */
lloc = SCM_CDRLOC (*lloc); lloc = SCM_CDRLOC (*lloc);
SCM_ASSERT (scm_ilength (SCM_CAR (*lloc)) >= 0, lst, SCM_ARG1, FUNC_NAME); SCM_ASSERT (scm_ilength (SCM_CAR (*lloc)) >= 0, lst, SCM_ARG1, FUNC_NAME);
*lloc = SCM_CAR (*lloc); *lloc = SCM_CAR (*lloc);

1
libguile/strports.c
View file

@ -475,7 +475,6 @@ scm_c_read_string (const char *expr)
"scm_c_read_string"); "scm_c_read_string");
SCM form; SCM form;
/* Read expressions from that port; ignore the values. */
form = scm_read (port); form = scm_read (port);
scm_close_port (port); scm_close_port (port);