diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | genvim.txr | 7 |
2 files changed, 6 insertions, 6 deletions
@@ -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 @@ -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> |