diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-03-02 16:35:01 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-03-02 16:35:01 -0800 |
| commit | eecab99c85e98034f01faabda16ff588138cc78c (patch) | |
| tree | 96d1e90277f0d36b91e9bc5e037541fabc68b520 /genvim.txr | |
| parent | d0816a8d75c4d620d3f9868be45f3a7707ad24b2 (diff) | |
| download | txr-eecab99c85e98034f01faabda16ff588138cc78c.tar.gz txr-eecab99c85e98034f01faabda16ff588138cc78c.tar.bz2 txr-eecab99c85e98034f01faabda16ff588138cc78c.zip | |
* genvim.txr: Skip lines that contain system_package.
* txr.vim: Regenerated.
Diffstat (limited to 'genvim.txr')
| -rw-r--r-- | genvim.txr | 21 |
1 files changed, 13 insertions, 8 deletions
@@ -11,21 +11,26 @@ static void dir_tables_init(void) [mapcar open-file '("eval.c" "rand.c" "signal.c" "stream.c" "syslog.c" "txr.c")]]) @(collect) -@ (cases) +@ (block) +@ (cases) +@/.*system_package.*/ +@ (accept) +@ (or) reg_@/op|mac/(@{txl-sym-nostar}_star_s,@(skip) -@ (bind txl-sym `@{txl-sym-nostar}*`) -@ (or) +@ (bind txl-sym `@{txl-sym-nostar}*`) +@ (or) reg_@/op|mac/(@{txl-sym}_s,@(skip) -@ (or) +@ (or) reg_mac(intern(lit("@{txl-sym}")@(skip) -@ (or) +@ (or) reg_fun(intern(lit("@{txl-sym}")@(skip) -@ (or) +@ (or) reg_fun(@{txl-sym}_s,@(skip) -@ (or) +@ (or) @/ */reg_var(@(skip)intern(lit("@{txl-sym}")@(skip) +@ (end) +@ (set txl-sym @(regsub #/_/ #\- txl-sym)) @ (end) -@ (set txl-sym @(regsub #/_/ #\- txl-sym)) @(end) @(do (defun sortuniq (list) |