(chise-turtle-uri-encode-feature-name): Use ":source-file" for

[chise/tomoyo-tools.git] / concord-turtle-dump.el

diff --git a/concord-turtle-dump.el b/concord-turtle-dump.el
index cddfe03..e4023ae 100644 (file)
--- a/concord-turtle-dump.el
+++ b/concord-turtle-dump.el
@@ -251,6 +251,8 @@
     ":reference")
    ((eq '*instance feature-name)
     ":instance")
+   ((eq '*source-file feature-name)
+    ":source-file")
    (t
     (concat ":" (chise-turtle-uri-encode-ccs-name feature-name)))))
 
@@ -507,7 +509,9 @@
                                                 al
                                                 nil 'for-sub-node)
            (setq separator lbs))
-       (setq ret (prin1-to-string cell))
+       (setq ret (if (concord-object-p cell)
+                     (concord-turtle-encode-object cell)
+                   (prin1-to-string cell)))
        (if separator
            (if (< (+ (current-column)
                      (length ret)