emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/triples 7d5aca3bb8 02/19: Fix issue where single elemen


From: ELPA Syncer
Subject: [elpa] externals/triples 7d5aca3bb8 02/19: Fix issue where single element lists were not being treated as lists.
Date: Sat, 5 Nov 2022 11:58:16 -0400 (EDT)

branch: externals/triples
commit 7d5aca3bb862c364420a6e4d32805b4e96085408
Author: Andrew Hyatt <ahyatt@gmail.com>
Commit: Andrew Hyatt <ahyatt@gmail.com>

    Fix issue where single element lists were not being treated as lists.
---
 triples-test.el | 7 +++++++
 triples.el      | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/triples-test.el b/triples-test.el
index 9689a9e65e..f539727cd8 100644
--- a/triples-test.el
+++ b/triples-test.el
@@ -117,6 +117,13 @@ easily debug into it.")
     (triples-delete-subject db "foo")
     (should-not (triples-get-subject db "foo"))))
 
+(ert-deftest triples-single-element ()
+  (triples-test-with-temp-db
+   (triples-add-schema db 'named 'name)
+   (triples-set-type db "foo" 'named :name '("Name"))
+   (should (equal '(:name ("Name"))
+                  (triples-get-type db "foo" 'named)))))
+
 (ert-deftest triples-reversed ()
   (triples-test-with-temp-db
    (triples-add-schema db 'named
diff --git a/triples.el b/triples.el
index e8c95dd75e..66d2c994b7 100644
--- a/triples.el
+++ b/triples.el
@@ -194,7 +194,7 @@ PROPERTIES is a plist of properties, without TYPE prefixes."
     (append
      (cl-loop for k being the hash-keys of preds using (hash-values v)
               nconc (list (triples--encolon (cdr 
(triples--combined-to-type-and-prop k)))
-                          (if (and (cdr v)
+                          (if (and (car v)
                                    (plist-get (cdar v) :index))
                               (mapcar #'car (sort v (lambda (a b)
                                                       (< (plist-get (cdr a) 
:index)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]