From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 13 Sep 2016 08:09:56 +0000 (+0900)
Subject: (est-eval-value-as-created-works): Fix problem when some items of
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=commitdiff_plain;h=f3faa1a13fb3c1661ce4027630f2f7bb566fefef

(est-eval-value-as-created-works): Fix problem when some items of
value are omitted.
---

diff --git a/est-eval.el b/est-eval.el
index d327070..25b8042 100644
--- a/est-eval.el
+++ b/est-eval.el
@@ -692,9 +692,11 @@
 		 '(:subtype unordered-list)
 	       '(:separator " "))
 	     (mapcar (lambda (creator)
-		       (est-eval-list
-			'((value (:feature <-creator)))
-			creator nil))
+		       (if (concord-object-p creator)
+			   (est-eval-list
+			    '((value (:feature <-creator)))
+			    creator nil)
+			 (est-eval-value-default creator)))
 		     value))
     (est-eval-value-default value)))