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

Tweak get-in behavior

Browse Source
This commit is contained in:
sogaiu 2021-08-06 08:24:26 +09:00
parent 61769c8f16
commit 2080ac3bda
1 changed files with 1 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

@ -1351,7 +1351,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