From b6b84131cd2cf36b49e65f30a67dbc114b78c610 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 5 Mar 2011 21:48:47 +0100
Subject: [PATCH] remove obsolete comments

* libguile/eval.c (scm_nconc2last):
* libguile/strports.c (scm_c_read_string): Remove some obsolete
  comments.
---
 libguile/eval.c     | 6 +-----
 libguile/strports.c | 1 -
 2 files changed, 1 insertion(+), 6 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);
diff --git a/libguile/strports.c b/libguile/strports.c
index 64987fabc..af601cf6e 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -475,7 +475,6 @@ scm_c_read_string (const char *expr)
 			    "scm_c_read_string");
   SCM form;
 
-  /* Read expressions from that port; ignore the values.  */
   form = scm_read (port);
 
   scm_close_port (port);