mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-29 03:19:54 +00:00
Code Issues 1 Releases Wiki Activity

Address #95

Browse Source 
A very minimal code change made partition take strings.
This commit is contained in:
Calvin Rose 2019-05-15 00:04:25 -04:00
parent f2313b9959
commit f647ac5631
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/boot/boot.janet
View File

@ -1047,11 +1047,12 @@
(var i 0) (var nextn n)
(def len (length ind))
(def ret (array/new (math/ceil (/ len n))))
(def slicer (if (bytes? ind) string/slice tuple/slice))
(while (<= nextn len)
(array/push ret (tuple/slice ind i nextn))
(array/push ret (slicer ind i nextn))
(set i nextn)
(+= nextn n))
(if (not= i len) (array/push ret (tuple/slice ind i)))
(if (not= i len) (array/push ret (slicer ind i)))
ret)
###