* genvim.txr (sortuniq): Remove unnecessary function,

since (sortuniq list) can be done as (sort (uniq list)).

2 files changed, 6 insertions, 6 deletions

diff --git a/ChangeLog b/ChangeLog
index 93bc1809..83842ce1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-13  Kaz Kylheku  <kaz@kylheku.com>
+
+	* genvim.txr (sortuniq): Remove unnecessary function,
+	since (sortuniq list) can be done as (sort (uniq list)).
+
 2014-10-12  Kaz Kylheku  <kaz@kylheku.com>
 
 	* eval.c (merge_wrap): New static function
diff --git a/genvim.txr b/genvim.txr
index fcabea66..ac9dc5d0 100644
--- a/genvim.txr
+++ b/genvim.txr
@@ -34,17 +34,12 @@ static void dir_tables_init(void)
 @    (set txl-sym @(regsub #/_/ #\- txl-sym))
 @  (end)
 @(end)
-@(do
-   (defun sortuniq (list)
-     (let* ((hash (hash :equal-based)))
-       (mapcar (op sethash hash @1 @1) list)
-       [sort (hash-values hash) string-lt])))
 @(do (set [txr-sym 0..0] '("rep" "end" "and" "or"
                            "catch" "finally"
                            "until" "last"
                            "if" "else" "elif")))
 @(do (set [txl-sym 0..0] '("macro-time" "macrolet" "symacrolet")))
-@(set (txr-sym txl-sym) (@(sortuniq txr-sym) @(sortuniq txl-sym)))
+@(set (txr-sym txl-sym) (@(sort (uniq txr-sym)) @(sort (uniq txl-sym))))
 @(output)
 " VIM Syntax file for txr
 " Kaz Kylheku <kaz@@kylheku.com>