From 750649f31e4ad1ae40bfee4a62909f3f1496010b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 23 Jul 2015 07:39:59 -0700 Subject: * genvim.txr: Scan cadr.c, cadr.tl, with-resources.tl, txr-case.tl. Remove hard-coded txr-case symbols. Recognize operators registered with in-line intern. --- ChangeLog | 6 ++++++ genvim.txr | 13 ++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 70d0fa8a..6df4ab0d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2015-07-23 Kaz Kylheku + + * genvim.txr: Scan cadr.c, cadr.tl, with-resources.tl, txr-case.tl. + Remove hard-coded txr-case symbols. Recognize operators registered + with in-line intern. + 2015-07-23 Kaz Kylheku Adding with-resources macro. diff --git a/genvim.txr b/genvim.txr index f40aa47c..d54db9a7 100644 --- a/genvim.txr +++ b/genvim.txr @@ -8,8 +8,10 @@ static void dir_tables_init(void) } @(end) @(next @(open-files ^(#*"eval.c rand.c signal.c stream.c gc.c glob.c" - #*"syslog.c filter.c txr.c arith.c unwind.c" - ,*#`sysif.c @stdlib/place.tl @stdlib/ifa.tl`))) + #*"syslog.c filter.c txr.c arith.c unwind.c cadr.c" + ,*#`sysif.c @stdlib/place.tl @stdlib/ifa.tl` + ,*#`@stdlib/cadr.tl @stdlib/with-resources.tl` + ,*#`@stdlib/txr-case.tl`))) @(collect) @ (block) @ (cases) @@ -21,9 +23,7 @@ static void dir_tables_init(void) @ (or) reg_@/op|mac/(@{txl-sym}_s,@(skip) @ (or) - reg_mac(intern(lit("@{txl-sym}")@(skip) -@ (or) - reg_fun(@(skip)intern(lit("@{txl-sym}")@(skip) + reg_@/op|mac|fun/(@(skip)intern(lit("@{txl-sym}")@(skip) @ (or) reg_fun(@{txl-sym}_s,@(skip) @ (or) @@ -42,8 +42,7 @@ static void dir_tables_init(void) "until" "last" "if" "else" "elif" "include"))) -@(do (set [txl-sym 0..0] '("macro-time" "macrolet" "symacrolet" - "txr-if" "txr-when" "txr-case"))) +@(do (set [txl-sym 0..0] '("macro-time" "macrolet" "symacrolet"))) @(set (txr-sym txl-sym) (@(sort (uniq txr-sym)) @(sort (uniq txl-sym)))) @(bind bs "\\\\") @(bind hex "0-9A-Fa-f") -- cgit v1.2.3