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

(and ... <truthy-value> true) will return true as per docs.

Browse Source
This commit is contained in:
Calvin Rose 2023-05-06 10:16:05 -05:00
parent 02c7cd0194
commit 4cc4a9d38b
2 changed files with 3 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

@ -280,7 +280,7 @@
(while (> i 0) (while (> i 0)
(-- i) (-- i)
(def v (in forms i)) (def v (in forms i))
(set ret (if (= ret true) (set ret (if (= i (- len 1))
v v
(if (idempotent? v) (if (idempotent? v)
['if v ret v] ['if v ret v]

2
test/suite0001.janet
View File

@ -345,6 +345,8 @@
(assert (= (and 0 1 nil) nil) "and 0 1 nil") (assert (= (and 0 1 nil) nil) "and 0 1 nil")
(assert (= (and 1) 1) "and 1") (assert (= (and 1) 1) "and 1")
(assert (= (and) true) "and with no arguments") (assert (= (and) true) "and with no arguments")
(assert (= (and 1 true) true) "and with trailing true")
(assert (= (and 1 true 2) 2) "and with internal true")
(assert (= (or true true) true) "or true true") (assert (= (or true true) true) "or true true")
(assert (= (or true false) true) "or true false") (assert (= (or true false) true) "or true false")