From 17dc6a75c2634be5529915e5030153e28c78832a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 13 Oct 2014 12:37:00 -0700 Subject: * genvim.txr (sortuniq): Remove unnecessary function, since (sortuniq list) can be done as (sort (uniq list)). --- ChangeLog | 5 +++++ genvim.txr | 7 +------ 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 + + * genvim.txr (sortuniq): Remove unnecessary function, + since (sortuniq list) can be done as (sort (uniq list)). + 2014-10-12 Kaz Kylheku * 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 -- cgit v1.2.3