2016-02-10: polish a bit

polish a bit

diff --git a/parse-crawled.scm b/parse-crawled.scm
--- a/parse-crawled.scm
+++ b/parse-crawled.scm
@@ -69,11 +69,12 @@
 "
   (let ((port (if target-filename
                   (open-output-file target-filename)
-                  (current-output-port))))
-    (display (string-join (map car trusts) ";") port)
+                  (current-output-port)))
+        (ids (map car trusts)))
+    (display (string-join ids ";") port)
     (newline port)
-    (write (car trusts))
-    (newline)
+    ; (write (car trusts))
+    ; (newline)
     (when target-filename (close-port port))))