From 2f4964d9b966ec468f8e2d8ce90ca52051faa089 Mon Sep 17 00:00:00 2001
From: TudbuT <tudbut@tudbut.de>
Date: Sat, 5 Feb 2022 23:16:53 +0100
Subject: [PATCH] fix strsplit

---
 std.isbpl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/std.isbpl b/std.isbpl
index c7536a1..78ed122 100644
--- a/std.isbpl
+++ b/std.isbpl
@@ -176,21 +176,23 @@ func strsplit {
 
     1 neg =i
     "" 0 anew =sequences
+    "" =sequence
     while (i 1 + =1) (i str alen lt) {
         str i aget =chr
         splitter 0 aget =spl
-        "" =sequence
+        sequence chr strconcat =sequence
         1 neg =j
         while (j 1 + =j) (chr spl eq) {
-            (str i j + aget dup =chr) (splitter j aget dup =spl) eq not if {
+            j splitter alen eq if {
                 sequences =oldsq
                 "" (sequences alen dup =seq 1 +) anew =sequences
                 oldsq sequences 0 0 oldsq alen acopy
                 sequences seq sequence aput
+                "" =sequence
+                stop
             }
-            else {
-                sequence chr strconcat =sequence
-            }
+            str i j + aget dup =chr
+            splitter j aget dup =spl
         }
     }