tags: implement merge with merge function.

* tags.tl (write-tagfile): Since we can assume that the tags
file is sorted, and the tags coming into this function are
likewise sorted, we can just merge the sorted lists.
Then, we don't have to sort the tags list a second time.

1 files changed, 2 insertions, 2 deletions

diff --git a/tags.tl b/tags.tl
index bb32ee44..3d6be813 100755
--- a/tags.tl
+++ b/tags.tl
@@ -135,10 +135,10 @@
              (orig-tags (collect-each ((line lines))
                           (new orig-tag ident (m^ #/[^\t]*/ line)
                                         line line))))
-        (set tags (append tags orig-tags)))
+        (set tags (merge tags orig-tags : .ident)))
       (path-not-found (e))))
   (with-stream (stream (open-file "tags" (if o.append "a" "w")))
-    (each ((tag (sort tags : .ident)))
+    (each ((tag tags))
       (put-line tag.(text) stream))))
 
 (let ((o (new tags-opts)))