fix strsplit

2022-02-05 23:11:26 +01:00 · 2022-02-05 23:11:26 +01:00 · 3d417928b4
commit 3d417928b4
parent 1ac0d7f0aa
1 changed files with 1 additions and 1 deletions
--- a/std.isbpl
+++ b/std.isbpl
@ -182,7 +182,7 @@ func strsplit {
        "" =sequence
        1 neg =j
        while (j 1 + =j) (chr spl eq) {
-            (str i j + aget) (splitter j aget) eq not if {
+            (str i j + aget dup =chr) (splitter j aget dup =spl) eq not if {
                sequences =oldsq
                "" (sequences alen dup =seq 1 +) anew =sequences
                oldsq sequences 0 0 oldsq alen acopy