From: ueno <ueno>
Date: Tue, 3 Feb 2004 10:04:57 +0000 (+0000)
Subject: Fix the last change.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=211c8481335658c3f561d84c95967ac214915dc9;p=elisp%2Flsdb.git

Fix the last change.
---

diff --git a/rdfdb.el b/rdfdb.el
index b1a75ed..11df39d 100644
--- a/rdfdb.el
+++ b/rdfdb.el
@@ -378,10 +378,10 @@ MATCHER is a triple whose slots can be nil (wildcard)."
 	 (minimum-length-triples subject-property-triples)
 	 key)
     ;; Check whether triple is already in database.
-    (if (> minimum-length-triples
+    (if (> (length minimum-length-triples)
 	   (length property-object-triples))
 	(setq minimum-length-triples property-object-triples))
-    (if (> minimum-length-triples
+    (if (> (length minimum-length-triples)
 	   (length object-subject-triples))
 	(setq minimum-length-triples object-subject-triples))
     (unless (member triple minimum-length-triples)