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

Tweak get-in behavior

src/boot/boot.janet

@@ -1381,7 +1381,7 @@
   a sequence of keys.`
   [ds ks &opt dflt]
   (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))
 
 (defn update-in

test/suite0010.janet

@@ -161,4 +161,10 @@
            ([err] :caught))))
     "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)