split**: split for far negative indices.

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

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

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 675a5f47..4e21108b 100644
--- a/lib.c
+++ b/lib.c
@@ -4312,7 +4312,7 @@ static val split_star_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;