[elpa] externals/tomelr c2d1328c44 80/84: fix: Boolean coercing when value is a symbol true or false

[ELPA Syncer]

branch: externals/tomelr
commit c2d1328c4404e6af920dc431ba57ee00eef4ba36
Author: Kaushal Modi <kaushal.modi@gmail.com>
Commit: Kaushal Modi <kaushal.modi@gmail.com>

    fix: Boolean coercing when value is a symbol true or false
---
 test/tcoerce.el | 4 ++++
 tomelr.el       | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/test/tcoerce.el b/test/tcoerce.el
index 975f8625b8..9b5295adef 100644
--- a/test/tcoerce.el
+++ b/test/tcoerce.el
@@ -30,10 +30,12 @@
         (inp '(
                ((key1 . "true"))
                ((key2 . "false"))
+               ((key3 . (false true)))
                ))
         (ref '(
                "key1 = true"
                "key2 = false"
+               "key3 = [false, true]"
                ))
         out)
     (dolist (el inp)
@@ -45,10 +47,12 @@
         (inp '(
                ((key1 . "true"))
                ((key2 . "false"))
+               ((key3 . (false true)))
                ))
         (ref '(
                "key1 = \"true\""
                "key2 = \"false\""
+               "key3 = [\"false\", \"true\"]"
                ))
         out)
     (dolist (el inp)
diff --git a/tomelr.el b/tomelr.el
index 5f768c13d9..1bd2de3ead 100644
--- a/tomelr.el
+++ b/tomelr.el
@@ -129,12 +129,12 @@ Return nil if OBJECT is not recognized as a TOML boolean."
   (prog1 (setq object (cond ((or
                               (eq object t)
                               (and (member 'boolean tomelr-coerce-to-types)
-                                   (equal object "true")))
+                                   (member object '("true" true))))
                              "true")
                             ((or
                               (member object tomelr-false)
                               (and (member 'boolean tomelr-coerce-to-types)
-                                   (equal object "false")))
+                                   (member object '("false" false))))
                              "false")))
     (and object (insert object))))