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

Merge pull request #752 from sogaiu/get-in-tweak

Browse Source 
Tweak get-in behavior
This commit is contained in:
Calvin Rose 2021-08-06 15:14:33 -05:00 committed by GitHub
commit 2e641a266d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 7 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

@ -1381,7 +1381,7 @@
a sequence of keys.` a sequence of keys.`
[ds ks &opt dflt] [ds ks &opt dflt]
(var d ds) (var d ds)
(loop [k :in ks :while d] (set d (get d k))) (loop [k :in ks :while (not (nil? d))] (set d (get d k)))
(if (= nil d) dflt d)) (if (= nil d) dflt d))
(defn update-in (defn update-in

6
test/suite0010.janet
View File

@ -161,4 +161,10 @@
([err] :caught)))) ([err] :caught))))
"regression #638")) "regression #638"))
# Issue #751
(def t {:side false})
(assert (nil? (get-in t [:side :note])) "get-in with false value")
(assert (= (get-in t [:side :note] "dflt") "dflt")
"get-in with false value and default")
(end-suite) (end-suite)