* lib.c (sel): Bugfix: not implemented correctly for sequences

which are lists.

2 files changed, 7 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index a41dccd0..87b2ca08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-30  Kaz Kylheku  <kaz@kylheku.com>
+
+	* lib.c (sel): Bugfix: not implemented correctly for sequences
+	which are lists.
+
 2014-06-28  Kaz Kylheku  <kaz@kylheku.com>
 
 	* arith.c (bit): New function.
diff --git a/lib.c b/lib.c
index 8a6f9ed2..e45902c1 100644
--- a/lib.c
+++ b/lib.c
@@ -5576,10 +5576,8 @@ val sel(val seq_in, val where_in)
       for (; seq && where; seq = cdr(seq), idx = plus(idx, one)) {
         val wh;
 
-        do {
-          wh = car(where);
-          where = cdr(where);
-        } while (lt(wh, idx));
+        for (; where && lt(wh = car(where), idx); where = cdr(where))
+          ; /* empty */
 
         if (eql(wh, idx))
           ptail = list_collect (ptail, car(seq));