mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-24 17:27:18 +00:00
Code Issues 1 Releases Wiki Activity

Fix last for empty collection, add tests

Browse Source
This commit is contained in:
Josef Pospíšil 2020-04-09 14:35:57 +02:00
parent e6d4e729fb
commit b63a0796fd
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/boot/boot.janet
View File

@ -648,7 +648,7 @@
(defn last (defn last
"Get the last element from an indexed data structure." "Get the last element from an indexed data structure."
[xs] [xs]
(in xs (- (length xs) 1))) (get xs (- (length xs) 1)))
### ###
### ###

4
test/suite8.janet
View File

@ -237,4 +237,8 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
load-image-dict)) load-image-dict))
(gccollect) (gccollect)
# in vs get regression
(assert (nil? (first @"")) "in vs get 1")
(assert (nil? (last @"")) "in vs get 1")
(end-suite) (end-suite)