split: fix for far negative indices.

* lib.c (split_func): In empty index case, convert
sequence via sub(seq, zero, t), so that ranges are
properly expanded. This was done in partition_func
in the previous commit.

* tests/012/seq.tl: Test cases added.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 8b6c261f..675a5f47 100644
--- a/lib.c
+++ b/lib.c
@@ -4270,7 +4270,7 @@ static val split_func(val base, val lcons)
         us_rplaca(lcons, first);
       }
     } else {
-      us_rplaca(lcons, seq);
+      us_rplaca(lcons, sub(seq, zero, t));
       us_rplacd(lcons, nil);
     }
     break;