(est-eval-unit): Fix bug about `name-url'; modify for

`www-uri-make-feature-name-url'.

diff --git a/est-eval.el b/est-eval.el
index 65ce97f..91b91f2 100644 (file)
--- a/est-eval.el
+++ b/est-eval.el
@@ -349,6 +349,7 @@
       )
      ((eq (car exp) 'name-url)
       (let ((fn (plist-get (nth 1 exp) :feature))
+           (object (plist-get (nth 1 exp) :object))
            domain domain-fn)
        (when fn
          (setq domain (char-feature-name-domain feature-name))
@@ -358,6 +359,7 @@
          (setq feature-name domain-fn)))
       (list 'name-url (list :feature feature-name)
            (www-uri-make-feature-name-url
+            (est-object-genre object)
             (www-uri-encode-feature-name feature-name)
             uri-object))
       )