1
0
mirror of https://github.com/janet-lang/janet synced 2024-12-25 07:50:27 +00:00

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

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

View File

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

View File

@ -345,6 +345,8 @@
(assert (= (and 0 1 nil) nil) "and 0 1 nil")
(assert (= (and 1) 1) "and 1")
(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 false) true) "or true false")