mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-27 00:40:26 +00:00
Code Issues 1 Releases Wiki Activity

Fix regression in take/drop.

Browse Source
This commit is contained in:
Calvin Rose 2020-01-24 17:39:25 -06:00
parent 9dad8bf56d
commit b8df47e063
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/boot/boot.janet
View File

@ -758,7 +758,8 @@
(def f (if use-str string/slice tuple/slice))
(def len (length ind))
# make sure end is in [0, len]
(def end (if (< n 0) n (if (> n len) len n)))
(def m (if (> n 0) n 0))
(def end (if (> m len) len m))
(f ind 0 end))
(defn take-until
@ -784,7 +785,8 @@
(def f (if use-str string/slice tuple/slice))
(def len (length ind))
# make sure start is in [0, len]
(def start (if (< n 0) n (if (> n len) len n)))
(def m (if (> n 0) n 0))
(def start (if (> m len) len m))
(f ind start -1))
(defn drop-until