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

which are lists.

1 files changed, 2 insertions, 4 deletions

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));